組み合わせ(Combination)はchoose(n,k)を使う．[=nCk]確率pの事象が実現される確率が，n回中k回以下である確率は以下． rm(list=ls()) x <- 0 p <- 0.5 n <- 1000 k <- 500 sum_k <- c(0:k) y <- choose(n,sum_k)*p^sum_k*(1-p)^(n-sum_k) plot(y,log="y") s…