data(Simulation_data,package="fMMseg")
res_EMbase <- launcher_fMM(G=3,data=Simulation_data,
var_reg="Y",family=gaussian(link="identity"),
epsilon=5*10^{-3})
plotCv_fMM(res_EMbase)
Run the code above in your browser using DataLab