# NOT RUN {
data(ais)
res <- MoE_clust(ais[,3:7], G=2, gating= ~ 1, expert= ~ sex,
network.data=ais, modelNames="EEE", equalPro=TRUE)
# Extract the variance object
res$parameters$variance
# Modify the variance object
expert_covar(res)
# }
Run the code above in your browser using DataLab