fit <- survregVB.fit(
Y = survival::Surv(simulation_nofrailty$Time, simulation_nofrailty$delta),
X = matrix(c(rep(1, 300), simulation_nofrailty$x1, simulation_nofrailty$x2), nrow = 300),
alpha_0 = 11,
omega_0 = 10,
mu_0 = c(0, 0, 0),
v_0 = 1
)
Run the code above in your browser using DataLab