Plots the gating network for fitted MoEClust models, i.e. the observation index against the mixing proportions for that observation, coloured by cluster.
MoE_plotGate(res, x.axis =NULL, type ="b", pch =1, xlab ="Observation", ylab = expression(widehat(tau)[g]), ylim = c(0,1), col =NULL,...)
Arguments
res: An object of class "MoEClust" generated by MoE_clust, or an object of class "MoECompare" generated by MoE_compare. Models with a noise component are facilitated here too.
x.axis: Optional argument for the x-axis against which the mixing proportions are plotted. Defaults to 1:res$n if missing. Supplying x.axis changes the defaults for the type and xlab arguments. Users are advised to only use quantities related to the gating network of the fitted model here. Furthermore, use of the x.axis argument is not recommended for models with more than one gating network covariate.
type, pch, xlab, ylab, ylim, col: These graphical parameters retain their definitions from matplot. col defaults to the settings in mclust.options. Note that the default value of type changes depending on whether x.axis is supplied and whether the gating network contains multiple covariates &/or categorical covariates.
...: Catches unused arguments, or additional arguments to be passed to matplot.
Returns
A plot of the gating network of the fitted MoEClust model. The parameters of the gating network can also be returned invisibly.
Note
plot.MoEClust is a wrapper to MoE_plotGate which accepts the default arguments, and also produces other types of plots.
By default, the noise component (if any) will be coloured "darkgrey".
Examples
data(ais)res <- MoE_clust(ais[,3:7], gating=~ BMI, G=3, modelNames="EEE", network.data=ais, noise.gate=FALSE, tau0=0.1)# Plot against the observation index and examine the gating network coefficients(gate <- MoE_plotGate(res))# Plot against BMIMoE_plotGate(res, x.axis=ais$BMI, xlab="BMI")# Plot against a categorical covariateres2 <- MoE_clust(ais[,3:7], gating=~ sex, G=3, modelNames="EVE", network.data=ais)MoE_plotGate(res2, x.axis=ais$sex, xlab="sex")