# NOT RUN {
if(require("mclust")){
# Compute model-based-clustering
require("mclust")
data("diabetes")
mc <- Mclust(diabetes[, -1])
# Visaulize BIC values
fviz_mclust_bic(mc)
# Visualize classification
fviz_mclust(mc, "classification", geom = "point")
}
# }
Run the code above in your browser using DataLab