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
)
Plots
alpha 0.05
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")
alpha 0.01
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)