这个计算函数值得程序对吗？貌似有点问题求帮我看下

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：程序

之前x怎么定义的

万人往LVR 发表于 2015-8-6 14:22
之前x怎么定义的

我是打算用x来算这个函数需要累加的那个部分，然后累加起来

我问你写函数之前x怎么定义的，直接x[i]会报错

没必要用fun,直接用for.
p=q=0.5
for(i in 0:9){
x<-(p^11)*choose(10+i,i)*(q^i)+1/(1-2*p*q)*choose(20,10)*(p^12)*(q^10)
print(x)
}

不用写循环，直接函数的话
f<-function(p=0.5){
q<-1-p
i<-0:9
r<-(p^11)*sum(choose(10+i,i)*(q^i))+
     choose(20,10)*(p^12)*(q^10)/(1-2*p*q)
return(r)
}

f(runif(1))
#限定在p为标量，且在01之间。