## fit a model
fit <- brm(time | cens(censored) ~ age + sex, data = kidney,
family = "exponential", silent = TRUE)
## posterior predictive checks
pp <- predict(fit)
head(pp)
## predict response for new data (be careful with factors)
newdata <- data.frame(sex = factor(c("male", "female"),
levels = c("male", "female")),
age = c(20,50))
predict(fit, newdata = newdata)
Run the code above in your browser using DataLab