# load data of a synthetic graph with 50 individuals and 3 clustersn <-50# compute data matrix with precision d_max=3Dmax <-2^3data <- list(Nijk=statistics(generated_Q3$data,n,Dmax,directed=FALSE), Time=generated_Q3$data$Time)# ICL-model selectionsol.selec_Q <- modelSelection_Q(data,n,Qmin=1,Qmax=4,directed=FALSE, sparse=FALSE,generated_sol_hist)# plot ICLmodelSelec_QPlot(sol.selec_Q)