powered by
getBic(gmm, dat)
temp <- getBic(gmmpen[[1]], pendat)
Run the code above in your browser using DataLab