# \donttest{
cov <- list(
binary = c("ECOG", "SMK", "METBRAIN"),
continuous = c("BMI", "DIAG")
)
cov_all <- list(
binary = c("SEX", "ECOG", "SMK", "METBRAIN", "METLIVER"),
continuous = c("BMI", "DIAG", "WEIGHT", "HEIGHT")
)
baseline <- check_matching(
ipds_wts = pts, agds = AgD_bl,
summary.list = cov_all, matching.list = cov,
intervention.arm = TRT,
comparator = STUDY, comparator.study = "Study XX-1",
comparator.n = N, comparator.arm = TRT)
baseline
# }
Run the code above in your browser using DataLab