n <- 10
sigma <- matrix(
data = c(
1.0, 0.5, 0.3,
0.5, 1.0, 0.4,
0.3, 0.4, 1.0
),
nrow = 3
)
vcov_sigma_vech_l <- t(
chol(
0.001 * diag(3 * (3 + 1) / 2)
)
)
SimCovN(
n = n,
sigma = sigma,
vcov_sigma_vech_l = vcov_sigma_vech_l
)
Run the code above in your browser using DataLab