epiBetaR <- sim_beta(simResults, alpha = 0.05)
plot_power(data = epiBetaR, n = NULL, m = 3, method = "power")
plot_power(data = epiBetaR, n = NULL, m = 3, method = "density")
plot_power(data = epiBetaR, n = 4, m = 3, method = "both")
Run the code above in your browser using DataLab