for関数（繰り返し、二重ループ、、、）

for (a in 1:3) {
  for (b in 3:5) {
      print(paste(a,b))
      print(a+b)
    }
  }

for (a in 1:3) {
    print(5 + a)
    }

#空のベクトル
vec <- c()

#空のベクトルを3回持ち出してきて5 + aを実行します
#1回目が終了したらvec = c(6), 2回目が終了したらvec = c(6, 7)
for (a in 1:3) {
    vec <- c(vec, 5+a)
}

#3回目が終了したら
print(vec)

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))