# 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 with groups ranging from 1 to 4
sol.selec_Q <- modelSelection_Q(data,n,Qmin=1,Qmax=4,directed=FALSE,
sparse=FALSE,generated_sol_hist)
# best number Q of clusters:
sol.selec_Q$Qbest
Run the code above in your browser using DataLab