tests/testthat/test_adjustedsurv.method_S3.r

In RobinDenz1/adjustedCurves: Confounder-Adjusted Survival Curves and Cumulative Incidence Functions

set.seed(42)
sim_dat <- readRDS(system.file("testdata",
                               "d_sim_surv_n_20.Rds",
                               package="adjustedCurves"))
sim_dat$group <- as.factor(sim_dat$group)

adj <- surv_km(data=sim_dat,
               variable="group",
               ev_time="time",
               event="event",
               conf_int=FALSE)

test_that("print.adjustedsurv.method", {
  expect_snapshot_output(print(adj))
})

test_that("summary.adjustedsurv.method", {
  expect_snapshot_output(summary(adj))
})