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