# load data of a synthetic graph with 50 individuals and 3 clusters
n <- 50
# compute data matrix of counts per subinterval with precision d_max=3 :
# (ie nb of parts K=2^{d_max}=8).
K <- 2^3
data <- list(Nijk=statistics(generated_Q3$data,n,K,directed=FALSE),
Time=generated_Q3$data$Time)
# ICL-model selection
sol.selec_Q <- modelSelection_Q(data,n,Qmin=1,Qmax=4,directed=FALSE,
sparse=FALSE,generated_sol_hist)
# plot ICL
modelSelec_QPlot(sol.selec_Q)
Run the code above in your browser using DataLab