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