分からない問題はここに書いてね 468

>>446
危険率5%で二項検定(片側検定)すると
12戦なら11勝、6戦なら6勝すれば運でなく実力で勝利したと結論できる。
> calc=function(n,p=0.6,alpha=0.05){
+ sub=function(r) binom.test(r,n,p,alt="greater")$p.value
+ r=1:n
+ min(r[which(sapply(r,sub)<alpha)])
+ }
> calc(12)
[1] 11
> calc(6)
[1] 6
>