if (FALSE) {
library(dplyr)
adrs_local <- tern_ex_adrs %>%
dplyr::filter(ARMCD %in% c("ARM A", "ARM B")) %>%
dplyr::mutate(
RSP = dplyr::case_when(AVALC %in% c("PR", "CR") ~ 1, TRUE ~ 0),
ARMBIN = droplevels(ARMCD)
)
dta <- adrs_local
dta <- dta[sample(nrow(dta)), ]
mod <- clogit_with_tryCatch(formula = RSP ~ ARMBIN * AGE + strata(STRATA1), data = dta)
}
Run the code above in your browser using DataLab