powered by
sim(ip, x = NULL)
pa <- cbind(runif(20, 0.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