# NOT RUN {
n <- seq(10, 140, 5)
theta_0 <- 0.15
theta_1 <- 0.35
sigsq <- 0.3
pwr_vals <- pwr_freq(n = n, theta_0 = theta_0, theta_1 = theta_1,
sigsq = sigsq, alt = "greater", alpha = 0.05)
pwr_vals$pwr_plot
# }
Run the code above in your browser using DataLab