inst/doc/causal-estimation.R

In survalis: Interpretable Survival Machine Learning Framework

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
run <- requireNamespace("survival", quietly = TRUE) &&
  requireNamespace("pec", quietly = TRUE)

## ----eval = run---------------------------------------------------------------
library(survalis)

est <- estimate(
  Surv(time, status) ~ age + karno + celltype, data = veteran,
  model = "coxph", estimand = "RMST_diff",
  treatment = "trt", tau = 300,
  R = 100, seed = 1
)
est

## ----eval = run, fig.width = 6, fig.height = 4--------------------------------
plot(est)

## ----eval = run---------------------------------------------------------------
summary(est)