faithfulBIC <- mclustBIC(faithful)
faithfulModel <- mclustModel(faithful, faithfulBIC) ## best parameter estimates
names(faithfulModel)
Dens <- dens(modelName = faithfulModel$modelName, data = faithful,
parameters = faithfulModel$parameters)
Dens
## alternative call
oddDens <- do.call("dens", c(list(data = faithful), faithfulModel))
Run the code above in your browser using DataLab