# NOT RUN {
power_data <- qcapower(cases = 20, null_hypo = 0.8, alt_hypo = 0.95, sims = 10, perms = 1000)
qp_run_plot(power_data)
# Using data with 10000 estimates
data(qp_sina_data)
qp_run_plot(qp_sina_data)
# }
Run the code above in your browser using DataLab