mu <- Sigma <- shape <- list()
mu[[1]] <- c(-3,-4)
mu[[2]] <- c(2,2)
Sigma[[1]] <- matrix(c(3,1,1,4.5), 2,2)
Sigma[[2]] <- matrix(c(2,1,1,3.5), 2,2)
shape[[1]] <- c(-2,2)
shape[[2]] <- c(-3,4)
nu <- 0
pii <- c(0.6,0.4)
percent <- c(0.1,0.2)
n <- 100
seed <- 654678
set.seed(seed)
test = rMMSN(n = n, pii = pii,mu = mu,Sigma = Sigma,shape = shape,
percent = percent, each = TRUE, family = "SN")
## SN ##
SN.contour = rMMSN.contour(model = NULL, y = test$y, Zij = test$G
,mu = mu, Sigma = Sigma, shape = shape, pii = pii, family = "SN")
#Plotting contours may take some time...
# \donttest{
## SN ##
SN.contour = rMMSN.contour(model = NULL, y = test$y, Zij = test$G
,mu = mu, Sigma = Sigma, shape = shape, pii = pii, contour = TRUE,
family = "SN")
## Normal ##
N.contour = rMMSN.contour(model = NULL,y = test$y, Zij = test$G
,mu = mu, Sigma = Sigma, shape = shape, pii = pii, contour = TRUE,
family = "Normal")
## t ##
t.contour = rMMSN.contour(model = NULL,y = test$y, Zij = test$G
,mu = mu, Sigma = Sigma, shape = shape, pii = pii, nu = c(4,3),
contour = TRUE, family = "t")
# }
Run the code above in your browser using DataLab