data(ais)
res <- MoE_clust(ais[,3:7], G=3, gating= ~ BMI + sex,
modelNames="EEE", network.data=ais)
# Calculate the AvePP per component
MoE_AvePP(res)
# Calculate an overall measure of clustering certainty
MoE_AvePP(res, group=FALSE)
Run the code above in your browser using DataLab