## Not run:
# data(Baudry_etal_2010_JCGS_examples)
# # run Mclust to get the MclustOutput
# output <- clustCombi(ex4.2, modelNames = "VII")
#
# entPlot(output$MclustOutput$z, output$combiM, reg = c(2,3))
# # legend: in red, the single-change-point piecewise linear regression;
# # in blue, the two-change-point piecewise linear regression.
# ## End(Not run)
Run the code above in your browser using DataLab