knitr::opts_chunk$set( error = TRUE, collapse = TRUE, comment = "#>", out.width = "100%" )
library(jeksterslabRmedsimple) data(results_mvn_std_mc.mvn.tb_ci, package = "jeksterslabRmedsimple") data(results_mvn_std_mc.mvn.delta_ci, package = "jeksterslabRmedsimple") data(results_mvn_std_mc.mvn.sem_ci, package = "jeksterslabRmedsimple") results_mvn_std_mc.mvn_ci <- rbind( results_mvn_std_mc.mvn.tb_ci, results_mvn_std_mc.mvn.delta_ci, results_mvn_std_mc.mvn.sem_ci, results_mvn_std_mc.wishart_ci )
plot_type1(results_mvn_std_mc.mvn_ci) plot_power(results_mvn_std_mc.mvn_ci) plot_miss(results_mvn_std_mc.mvn_ci)
plot_type1(results_mvn_std_mc.mvn_ci, criteria = "liberal") plot_miss(results_mvn_std_mc.mvn_ci, criteria = "liberal")
plot_type1(results_mvn_std_mc.mvn_ci, criteria = "strict") plot_miss(results_mvn_std_mc.mvn_ci, criteria = "strict")
plot_type1(results_mvn_std_mc.mvn_ci, criteria = "liberal", alpha = 0.01) plot_miss(results_mvn_std_mc.mvn_ci, criteria = "liberal", alpha = 0.01)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.