# \donttest{
uterinecarcinoma.lcarandom2 <- randomLCA(uterinecarcinoma[, 1:7],
freq = uterinecarcinoma$freq, random = TRUE, probit = TRUE, quadpoints = 61, cores = 1)
# LCR1 model of Que et al. This is fairly unstable and
# is also slow and doesn't improve the model fit
uterinecarcinoma.lcarandom2by <- randomLCA(uterinecarcinoma[, 1:7], freq = uterinecarcinoma$freq,
byclass = TRUE, random = TRUE, probit = TRUE, quadpoints = 71, cores = 1)# }
Run the code above in your browser using DataLab