# \donttest{
sigma <- matrix(c(1, .3, 0,
.3, 1, .9,
0, .9, 1),3,3)
mu <- c(6,50,5)
df <- get_corvars(n = 10000, mu = mu, sigma = sigma, seed = 101010)
mean_by(df)
cor(df)
# }
Run the code above in your browser using DataLab