data(iris)
irisMatrix <- as.matrix(iris[,1:4])
irisClass <- iris[,5]
n <- nrow(irisMatrix)
d <- ncol(irisMatrix)
G <- 3
emEst <- meVVI(data=irisMatrix, unmap(irisClass))
names(emEst)
bicVVI(loglik=emEst$loglik,n=n,d=d,G=G)
do.call("bicVVI", emEst) ## alternative call
Run the code above in your browser using DataLab