data(ais)
res <- MoE_clust(ais[,3:7], gating= ~ BMI, expert= ~ sex,
G=2, modelNames="EVE", network.data=ais)
# Plot the gating network
plot(res, what="gating", x.axis=ais$BMI, xlab="BMI")
# Plot the log-likelihood
plot(res, what="loglik", col="blue")
# Plot the uncertainty profile
plot(res, what="uncertainty", type="profile")
# Produce a generalised pairs plot
plot(res, what="gpairs")
# Produce a heatmap of the similarity matrix
plot(res, what="similarity")
# Modify the gpairs plot by passing arguments to MoE_gpairs()
plot(res, what="gpairs", response.type="density", varwidth=TRUE, show.dens=TRUE,
data.ind=c(5,3,4,1,2), jitter=FALSE, show.counts=FALSE)
Run the code above in your browser using DataLab