臨床統計もおもしろいですよ、その１

臨床統計もおもしろいですよ、その１at HOSP

臨床統計もおもしろいですよ、その１ - 暇つぶし2ch597:卵の名無しさん
18/06/30 15:09:55.32 j2CU1Lw0.net
a=750 ; b=250
v=c(rep(1,a),rep(0,b))
f <- function(v){
x=sample(v)
any(cumsum(x)==cumsum(1-x))
}
mean(replicate(1e5,f(v)))

次ページ

続きを表示

1を表示