メモリンク n <- 50 n.iter <- 100000 N <- 40 r.with.replace <- r.without.replace <- matrix(0,n.iter,N) for(i in 1:n.iter){ x <- rnorm(n) r.with.replace[i,] <- sample(x,N,replace=TRUE) r.without.replace[i,] <- sample(x,N,replace=FALSE) } m.w…