if (FALSE) {
data(tenseness)
set.seed(1860)
samples <- sample(1:nrow(tenseness), 300)
tense_small <- tenseness[samples,]
m_small <- PCMRS(tense_small, cores = 25)
m_small
plot(m_small)
persons <- person.posterior(m_small, cores = 25)
plot(jitter(persons,100))
}
Run the code above in your browser using DataLab