## To run an example, see man page for bic
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