#estimate CRSM for the first three items
data(example1)
res_cr <- CRSM(example1[,1:3], min=0, max=1)
#graphical model check for CRSM for the first three items with default split criterion score
gmc(res_cr)
Run the code above in your browser using DataLab