# \donttest{
data(tenseness)
Y <- data.matrix(tenseness[,1:4])
X <- model.matrix(~ Gender + Age, data = tenseness)[,-1]
m_upcm <- UPCM(Y = Y, X = X, cores = 2, GPCM = FALSE)
m_upcm
plot(m_upcm)
# }
# \dontshow{
set.seed(1860, sample.kind = "Rounding")
n <- 70
I <- 2
Y <- matrix(sample(1:3, I*n, replace = TRUE), ncol = I)
m_upcm <- UPCM(Y = Y, cores = 2, GPCM = FALSE, se = FALSE, Q = 6, ctrl.nlminb = list(rel.tol = 1e-06))
# }
Run the code above in your browser using DataLab