library(mi4p)
data(datasim)
datasim_imp <- multi.impute(data = datasim[,-1],
conditions = attr(datasim,"metadata")$Condition, method = "MLE")
rubin2wt.all(datasim_imp[1:5,,],funcvar = within_variance_comp_emmeans,
attr(datasim,"metadata")$Condition)
Run the code above in your browser using DataLab