quick code to check the installation of rstanarm (survival branch)

check_rstanarm_install.R

library(rstanarm)
library(simsurv)

?stan_surv

data("frail")

m_frail <- stan_surv(
  formula = Surv(eventtime, status) ~ trt + (1 | site), 
  data    = frail[1:40,], 
  basehaz = "exp", 
  chains  = 1,
  refresh = 0,
  iter    = 600,
  seed    = 123)


m_frail <- stan_surv(
  formula = Surv(eventtime, status) ~ trt, 
  data    = frail[1:40,], 
  basehaz = "exp", 
  chains  = 1,
  refresh = 0,
  iter    = 600,
  seed    = 123)