library(adjustedCurves)
set.seed(42)
if (requireNamespace("MASS")) {
# simulate some data as example
sim_dat <- sim_confounded_surv(n=50, max_t=1.2)
sim_dat$group <- as.factor(sim_dat$group)
# calculate adjusted survival curves
adjsurv <- adjustedsurv(data=sim_dat,
variable="group",
ev_time="time",
event="event",
method="emp_lik",
treatment_vars=c("x1", "x2", "x3", "x4", "x5", "x6"),
moment="first")
# plot the curves
plot(adjsurv)
}
Run the code above in your browser using DataLab