新型コロナウイルス対策 in 医者板 Part.12

>>535
バレているのはあんたがRすら使えない低能ってことだよ。
>474を書き換えて
hit=10
miss=0
curve(dbeta(x,1+hit,1+miss),bty='n',ann=F,axes=F) ; axis(1)
y=rbeta(1e7,1+hit,1+miss)
z=10000*y
mean(z) ; 10000*(1+hit)/(2+hit+miss)
quantile(z,c(0.05,1)) ; 10000*qbeta(0.05,1+hit,1+miss)
を実行すれば期待値と信頼区間が出せるのに。