繰り返し, for関数

2023.03.27

二項分布のグラフ

確率 $0.3$、試行回数$(2, 3, 5, 10, 50, 100)$

fun <- function(k){
    t <- 0:k
    p <- dbinom(x = t, size = k, prob = 0.3) #それぞれの確率を算出
    barplot(p ~ t,  pch = 16, xlab = "", ylab = "")
    }

par(mfrow = c(2,3))
for(k in c(2,3,5,10,50,100)){fun(k)} 
par(mfrow = c(1,1))

コメント欄 『間違い』や『分かりにくい部分』などのご意見もお寄せください

タイトルとURLをコピーしました