library(jeksterslabRmedsimple)
data(results_mvn_mnar_mc.mvn_ci, package = "jeksterslabRmedsimple")
data(results_mvn_mnar_nb.fiml_ci, package = "jeksterslabRmedsimple")
results_mnar_ci <- rbind(
results_mvn_mnar_mc.mvn_ci,
results_mvn_mnar_nb.fiml_ci
)
results_mnar_10_ci <- results_mnar_ci[which(results_mnar_ci$missing == "MNAR.10"), ]
results_mnar_20_ci <- results_mnar_ci[which(results_mnar_ci$missing == "MNAR.20"), ]
results_mnar_30_ci <- results_mnar_ci[which(results_mnar_ci$missing == "MNAR.30"), ]