library(rbmi)
dat <- data.frame(
USUBJID = factor(rep(c("S1", "S2", "S3", "S4"), each = 3)),
AVISIT = factor(rep(c("Week 4", "Week 8", "Week 12"), 4),
levels = c("Week 4", "Week 8", "Week 12")),
TRT = factor(rep(c("Placebo", "Drug A"), each = 6)),
CHG = c(1, 2, 3, 1, NA, NA, 1, 2, NA, 1, NA, 2)
)
vars <- set_vars(
subjid = "USUBJID",
visit = "AVISIT",
group = "TRT",
outcome = "CHG"
)
result <- summarise_missingness(dat, vars)
print(result$by_visit)
print(result$patterns)
print(result$summary)
Run the code above in your browser using DataLab