# NOT RUN {
# Package loading
require(VarSelLCM)
# Data loading (categorical data)
data("heart")
# Model-based clustering with 3 components
res <- VarSelCluster(heart[,-13], 3)
# Inference of the parameters used for results visualization
# (specific for VarSelLCM results)
# It is better because probabilities of classification are generated
# by using the model parameters
resvisu <- clusvisVarSelLCM(res)
# Component interpretation graph
plotDensityClusVisu(resvisu)
# Scatter-plot of the observation memberships
plotDensityClusVisu(resvisu, add.obs = TRUE)
# }
Run the code above in your browser using DataLab