













# 簡単なモンテカルロ例
pi_approx <- function(n) {
points <- matrix(runif(2*n), ncol=2)
mean(rowSums(points^2) <= 1) * 4
}
results <- replicate(100, pi_approx(1000))
# ブートストラップ例
library(boot)
boot_fn <- function(data, indices) {
mean(data[indices])
}
boot_results <- boot(mydata, boot_fn, R=1000)



