S <- make_corr(3, "ar1", 0.6)
x <- r_mvnorm(1000, mean = c(0, 1, 2), sigma = S, seed = 1)
round(cor(x), 2)
t3 <- r_mvt(500, df = 3, sigma = S)
sn <- r_mvskewnorm(500, omega = S, alpha = c(5, 0, -5))
dir <- r_dirichlet(5, alpha = c(1, 2, 3))
rowSums(dir)
mix <- r_mvmixture(500, weights = c(0.3, 0.7),
means = list(c(-2, -2), c(2, 2)),
sigmas = list(diag(2), diag(2)))
Run the code above in your browser using DataLab