# 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 = 10, burnin = 0)
pred.survival <- predict(fit, dat, newdata = dat, times = c(1, 3, 5))
Run the code above in your browser using DataLab