全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
15675 6
2016-06-29
程序如下
y<-rnorm(5,0,1)
d<-diag(c(1,2,3,4,5))
f<-function(i,u)
{d[i,i]^2*(y-mean(y))/(d[i,i]+u)}
for(i in 1:5){
g<-function(u){
sum(f(i,u))}}
#################
g1<-function(u)
{f(1,u)+f(2,u)+f(3,u)+f(4,u)+f(5,u)}#这个就是我要的函数g(u)#
要求的函数g是一个关于u的未知的函数,而且g是函数f(i,u)的和,i=1:5,我不想用g1这种列举法表示(因为如果有100个函数相加,这样根本写不下去),但是我的循环方法表示g出错了,g等于最后一个函数f(5,u),而不是求和了,求大神解答一下,谢谢了!
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

全部回复
2016-6-29 22:45:15
sum <- 0
for (i in 1:100) {
  sum <- sum + f(i, u)
}

这样不行吗?
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-6-29 23:37:53
bbslover 发表于 2016-6-29 22:45
sum
谢谢你,我明天早上起来了试一下,谢谢解答
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-6-30 07:05:40
八神小弟 发表于 2016-6-29 22:05
程序如下
y
For循环应该写到g函数的里面吧。
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-6-30 12:43:06
bbslover 发表于 2016-6-29 22:45
sum
我试过了,这样不行,会出现错误。因为这里面不是简单的数值加法预算,含有u这个未知数
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2016-6-30 12:49:54
xrk_victor 发表于 2016-6-30 07:05
For循环应该写到g函数的里面吧。
是这样吗?
g<-function(u){for(i in 1:5){sum(f(i,u))}}
试过你说的方法发现最后不会出现结果。即当我令u=1时,输入g(1)会出现没有输出结果这种情况(正常情况下输入g(1)会出现一个数字结果)
问题好像还是没有解决
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群