vignettes/results/results_mvn_mar_ci.Rmd
results_mvn_mar_ci.Rmd
library(jeksterslabRmedsimple) data(results_mvn_mar_mc.mvn_ci, package = "jeksterslabRmedsimple") data(results_mvn_mar_nb.fiml_ci, package = "jeksterslabRmedsimple") results_mar_ci <- rbind( results_mvn_mar_mc.mvn_ci, results_mvn_mar_nb.fiml_ci ) results_mar_10_ci <- results_mar_ci[which(results_mar_ci$missing == "MAR.10"), ] results_mar_20_ci <- results_mar_ci[which(results_mar_ci$missing == "MAR.20"), ] results_mar_30_ci <- results_mar_ci[which(results_mar_ci$missing == "MAR.30"), ]