rmvnorm(n, mu, sigma)
rmvt(n, mu, sigma, v)
racg, rmvlaplace, rmvt
x <- as.matrix(iris[, 1:4])
m <- colmeans(x)
s <- cov(x)
y <- rmvnorm(1000, m, s)
colmeans(y)
cov(y)
x <- as.matrix(iris[, 1:4])
m <- colmeans(x)
s <- var(x)
y <- rmvt(1000, m, s, 10)
## MASS::cov.trob(y, nu = 10)
Run the code above in your browser using DataLab