data(ais)
res <- MoE_clust(ais[,3:7], gating= ~ sex, G=3, modelNames="EEE", network.data=ais)
# Produce an uncertainty barplot
MoE_Uncertainty(res)
# Change the colour scheme
MoE_Uncertainty(res, col="uncertain")
# Produce an uncertainty profile plot
MoE_Uncertainty(res, type="profile")
# Let's assume the true clusters correspond to sex
(ub <- MoE_Uncertainty(res, truth=ais$sex))
(up <- MoE_Uncertainty(res, type="profile", truth=ais$sex))
# Examine the effect of rug1d for univariate models
mod <- MoE_clust(CO2data$CO2, expert=~GNP, G=2, modelNames="V", network.data=CO2data)
MoE_Uncertainty(mod, rug1d=FALSE)
MoE_Uncertainty(mod)
Run the code above in your browser using DataLab