# NOT RUN {
faithfulModel <- Mclust(faithful)
Dens <- dens(modelName = faithfulModel$modelName, data = faithful,
parameters = faithfulModel$parameters)
Dens
## alternative call
do.call("dens", faithfulModel)
# }
Run the code above in your browser using DataLab