Latest update on 2012年3月5日 (月) at 10:54:46.
hits <- res <- 1:1000
for (j in 1:1000) {
for (i in 1:1000) { res[i] <- ifelse((20 %in% sample(0:99,50,replace=TRUE)),1,0) }
hits[j] <- sum(res) }
hist(hits)
summary(hits)
▼前【1907】(とりあえず方針決め(2011年6月23日) ) ▲次【1909】(前橋は今日も晴天(2011年6月25日) ) ●Top
△Read/Write COMMENTS