こちらの続き。 20回の試行を増やしてみる。 10回、100回、1000回、10000回して、それぞれ8回、80回、800回、8000回表が出たとする。 つまり、点推定ではどれも0.8。 p<- 0.8 trial<- 10^(1:4) apply(cbind(trial*p,trial*(1-p)),1,binom.test,0.5) [[1]] Ex…