编辑代码

myString <- "Hello world!     -  R.jsrun.net"

print ( myString)

qbinom(0.99,50,0.4)
pbinom(28,50,0.4)
pbinom(27,50,0.4)



re=c()
dd=c()
¡=1
for (n in 50:70) {
    dd[i]=qbinom(0.99,n,0.4)
    re[i]=1-binom(dd[i],n,0.6)
    i=i+1
}
re
dd