require(mvtnorm)
mean <- rep(0, 2)
sigma <- matrix(c(1, 0.5, 0.5, 1), 2, 2)
# using a control object
dc <- DataControl(size = 10, distribution = rmvnorm,
dots = list(mean = mean, sigma = sigma))
generate(dc)
# supply slots of control object as arguments
generate(size = 10, distribution = rmvnorm,
dots = list(mean = mean, sigma = sigma))
Run the code above in your browser using DataLab