powered by
mvrnorm(n = 1, mu, Sigma, tol = 1e-6, empirical = FALSE, EISPACK = FALSE)
Sigma
n = 1
mu
n
length(mu)
.Random.seed
eigen
rnorm
Sigma <- matrix(c(10,3,3,2),2,2) Sigma var(mvrnorm(n=1000, rep(0, 2), Sigma)) var(mvrnorm(n=1000, rep(0, 2), Sigma, empirical = TRUE))
Run the code above in your browser using DataLab