# \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