# NOT RUN {
p=2
g=3
sigma<-array(0,c(2,2,3))
for(h in 2:3) sigma[,,h]<-diag(2)
sigma[,,1]<-cbind( c(1,0),c(0,1))
mu <- cbind(c(4,-4),c(3.5,4),c( 0, 0))
delta <- cbind(c(3,3),c(1,5),c(-3,1))
dof <- c(3,5,5)
distr="mst"
EmSkewMOD(p,g,distr,mu,sigma,dof,delta,nrand=10000)
# }
Run the code above in your browser using DataLab