library(dplyr)
library(survival)
# Test with multiple arms
tern_ex_adtte |>
filter(PARAMCD == "OS") |>
(\(x) survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = x))() |>
h_data_plot()
# Test with single arm
tern_ex_adtte |>
filter(PARAMCD == "OS", ARMCD == "ARM B") |>
(\(x) survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = x))() |>
h_data_plot(armval = "ARM B")
Run the code above in your browser using DataLab