#Loading the dataset
data(osteoarthritis)
#Multiply imputing the missing values
imputed.datasets <- mice::mice(osteoarthritis, m = 5,
printFlag = FALSE)
#Matching the multiply imputed datasets manually
weight.list <- lapply(1:5, function(i) {
WeightIt::weightit(OSP ~ AGE + SEX + BMI + RAC + SMK,
mice::complete(imputed.datasets, i),
method = 'glm',
estimand = 'ATT')
})
#Creating wimids object
weighted.datasets <- as.wimids(weight.list,
imputed.datasets)
Run the code above in your browser using DataLab