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