之前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之间。