## 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