# \donttest{
library(dplyr)
library(survival)
library(grid)
grid::grid.newpage()
grid.rect(gp = grid::gpar(lty = 1, col = "pink", fill = "gray85", lwd = 1))
tern_ex_adtte %>%
filter(PARAMCD == "OS") %>%
survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .) %>%
h_grob_median_surv() %>%
grid::grid.draw()
# }
Run the code above in your browser using DataLab