R的问题求教

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

myfunction<-function(i){
r<-choose(65,i)*((1/2)^65)
return(r)
}

i<-23
while(i>0)
{
r[24-i]<-myfunction(i)
i<-i-1
}
r
sum(r)
这个是我写的一段程序，运行有些问题，就教！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：问题求教 function CTI Fun TIO

1. myfunction<-function(i){
   
2. r<-choose(65,i)*((1/2)^65)
   
3. return(r)
   
4. }
   
5. r=c()
   
6. i<-23
   
7. while(i>0)
   
8. {
   
9. r[24-i]<-myfunction(i)
   
10. i<-i-1
    
11. }
    
12. r
    
13. sum(r)

复制代码

r定义下就好

yywan0913 发表于 2014-3-11 23:11
r定义下就好

嗯，谢谢，之前定义有问题，现在搞明白了！