# default mean & covariance parametrization
S <- diag(c(1, 2)) %*% matrix(c(1, 0.5, 0.5, 1), 2, 2) %*% diag(c(1, 2))
mvnm1 <- mixmvnorm(
rob = c(0.2, c(0, 0), diag(c(2, 2)^2)),
inf = c(0.8, c(0.5, 1), S / 4), sigma = S
)
print(mvnm1)
summary(mvnm1)
set.seed(657846)
mixSamp1 <- rmix(mvnm1, 500)
colMeans(mixSamp1)
# alternative mean, sd and correlation parametrization
mvnm1_alt <- mixmvnorm(
rob = c(0.2, c(0, 0), c(2, 2), 0.0),
inf = c(0.8, c(0.5, 1), c(1, 2) / 2, 0.5),
sigma = msr2mvnorm(s = c(1, 2), r = 0.5, unlist = FALSE)$s,
param = "msr"
)
print(mvnm1_alt)
Run the code above in your browser using DataLab