# NOT RUN {
mu <- Sigma <- shape <- list()
mu[[1]] <- c(-3,-4)
mu[[2]] <- c(2,2)
shape[[1]] <- c(-2,2)
shape[[2]] <- c(-3,4)
Sigma[[1]] <- matrix(c(3,1,1,4.5), 2,2)
Sigma[[2]] <- matrix(c(2,1,1,3.5), 2,2)
pii <- c(0.6,0.4)
percent <- c(0.1,0.1)
family <- "SN"
n <-100
set.seed(20)
rMMSN(n = n,pii = pii, mu = mu, Sigma = Sigma, shape = shape,
percent = percent, each = TRUE, family = family)
# }
Run the code above in your browser using DataCamp Workspace