library(rbmi)
dat <- data.frame(
USUBJID = factor(rep(c("S1", "S2", "S3"), each = 3)),
AVISIT = factor(rep(c("Week 4", "Week 8", "Week 12"), 3),
levels = c("Week 4", "Week 8", "Week 12")),
TRT = factor(rep(c("Placebo", "Drug A", "Drug A"), each = 3)),
CHG = rnorm(9),
DISCFL = c("N","N","N", "N","Y","Y", "N","N","Y")
)
vars <- set_vars(
subjid = "USUBJID",
visit = "AVISIT",
group = "TRT",
outcome = "CHG"
)
ice <- prepare_data_ice(dat, vars, ice_col = "DISCFL", strategy = "JR")
print(ice)
Run the code above in your browser using DataLab