20/07/07 14:35:25 bx7umG9D.net
>>931
２．のシミュレーション解
bag=rep(1:0,c(6,4))
sim <- function(x) sum(sample(bag,5))
re=replicate(1e6,sim())
table(re)/1e6
1 2 3 4 5
0.024026 0.237994 0.476124 0.238167 0.023689
20/07/07 14:35:25 bx7umG9D.net
>>931
２．のシミュレーション解
bag=rep(1:0,c(6,4))
sim <- function(x) sum(sample(bag,5))
re=replicate(1e6,sim())
table(re)/1e6
1 2 3 4 5
0.024026 0.237994 0.476124 0.238167 0.023689