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)
这个是我写的一段程序，运行有些问题，就教！