# simulate data
set.seed(123)
n <- 200 # subjects
p <- 10 # variable selection predictors
L <- 3 # cell types
dat <- simData(n, p, L)
# run a Bayesian GPTCM model: GPTCM-Ber2
fit <- GPTCM(dat, nIter = 5, burnin = 0)
# \donttest{
plotBrier(dat, datMCMC = fit, PTCM = FALSE)
# }
Run the code above in your browser using DataLab