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