powered by
sim(ip, x = NULL)
pa <- cbind(runif(20,.8,2), runif(20,-2.4,2.4), rep(0,50)) rs <- sim(ip=pa, x=rnorm(1000))
Run the code above in your browser using DataLab