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