# NOT RUN {
modelY_Hopx <- example.as.ESS.object()
MPPI.Hopx <-
plotMPPI(modelY_Hopx,threshold.model=20,threshold.variable=0.25,Figure=FALSE)
plotcim(modelY_Hopx,select.variable=MPPI.Hopx$var.TOP.MPI)
# }
Run the code above in your browser using DataLab