N<-100
set.seed(346) # sets the random number seed
sim.samp(N,15,rnorm)->z # 100 N(0,1) samples of size n=15
sim.samp(N,40,rnorm,mean=10,sd=5)->z # 100 N(10,25) samples of size n=40
# Function Code
sim.samp <- function(nrep,n,DIST,...){
data <- matrix(DIST(n * nrep, ...), ncol = n, nrow = nrep)}
Run the code above in your browser using DataLab