ベイズの統計学を学び始めたんだけど

ベイズの統計学を学び ..

620:１３２人目の素数さん
18/05/30 06:22:50.55 fLd3NENr.net
薬剤ｙを1人ずつ投与して効果判定したら、3人めで効果が確認できた。
薬剤ｇを9人同時に投与したら3人に効果があった。
どちらの有効性が高いか？
別バージョン（こっちがオリジナルｗ）
ゆるゆる女子大生に1人ずつメールで誘ったら3人めが開脚。、
がばがば女子大生9人に一斉にメールを送ったら3人が開脚。
どっちが開脚が容易か？

開脚率の期待値を計算してみた。
ゆるゆる女子大生の開脚率期待値：ｒ人目で初めて開脚
r=3
Ex.yuru <- function(r){
integrate(function(x)x*(1-x)^(r-1)*x,0,1)$value/integrate(function(x)(1-x)^(r-1)*x,0,1)$value
}
Ex.yuru(r)
2/(r+2)
がばがば女子大生の開脚率期待値：N人中ｚ人開脚
N=9
z=3
Ex.gaba <- function(N,z){
integrate(function(x) x*choose(N,z)*x^z*(1-x)^(N-z),0,1)$value/integrate(function(x)choose(N,z)*x^z*(1-x)^(N-z),0,1)$value
}
Ex.gaba(9,3)
(z+1)/(N+2)

次ページ