data(ais)
res <- MoE_clust(ais[,3:7], G=3, gating= ~ BMI + sex,
modelNames="EEE", network.data=ais)
# Calculate the normalised entropy
MoE_entropy(res)
# Calculate the normalised entropy per cluster
MoE_entropy(res, group=TRUE)
Run the code above in your browser using DataLab