中谷ゼミ トップページへ戻る?
nsim <- 10000000 number <- numeric(nsim) a <- 1:12 for(i in 1:nsim){ number[i] <- sample(a, size = 1, replace = T) } hist(number, breaks = seq(0, 12, by = 1), freq = F)