r 一様分布の和の平均は正规分布の近似に使える（中心极限定理）

Posted 2021-05-24

sum_runif <- function(x) {
  a <- runif(n = 1000)
  if (x <= 1) return(a)
  else return(a + Recall(x-1))
}
hist(sum_runif(5))
hist(sum_runif(1))
hist(sum_runif(10))