powered by
rmvlaplace(n, lam, mu, G)
rmvnorm, racg, rmvt
m <- colmeans( as.matrix( iris[, 1:4] ) ) s <- cov(iris[,1:4]) s <- s / det(s)^0.25 lam <- 3 x <- rmvlaplace(1000, lam, m, s)
Run the code above in your browser using DataLab