## Not run:
# ## performing surivival analysis using the "weibull" family
# fit1 <- brm(time | cens(censored) ~ age + sex + disease,
# data = kidney, family = weibull, inits = "0")
# summary(fit1)
# plot(fit1)
#
# ## adding random intercepts over patients
# fit2 <- brm(time | cens(censored) ~ age + sex + disease + (1|patient),
# data = kidney, family = weibull(), inits = "0",
# prior = set_prior("cauchy(0,2)", class = "sd"))
# summary(fit2)
# plot(fit2)
# ## End(Not run)
Run the code above in your browser using DataLab