# NOT RUN {
set.seed(1)
Nobs1 <- 200
Nobs2 <- 250
X1 <- rpe(n = Nobs1, mean = c(0,0), scale = diag(2), beta = 1)
X2 <- rpe(n = Nobs2, mean = c(3,0), scale = diag(2), beta = 2)
x <- as.matrix(rbind(X1, X2))
membership <- c(rep(1, Nobs1), rep(2, Nobs2))
mperun <- mpe(verbose = TRUE, dat = x, seedno = 1, G = 1:2, start="kmeans",
modelnames = c("EIIV", "EEEV", "VVVV"))
print(mperun)
print(table(membership,mperun$bicclassification))
# }
Run the code above in your browser using DataLab