if (FALSE) {
ipd1 <- sim110[sim110$study == 'IPD A',]
ipd2 <- sim110[sim110$study == 'IPD B',]
x <- exmWt.2ipd(ipd1, ipd2, vars_to_match = paste0('X', 1:5),
cat_vars_to_01 = paste0('X', 1:3), mean.constrained = FALSE)
}
Run the code above in your browser using DataLab