# NOT RUN {
design_result <- ANOVA_design(design = "3b",
n = 20,
mu = c(0,0,0.3),
sd = 1,
labelnames = c("condition",
"cheerful", "neutral", "sad"))
plot_power(design_result, min_n = 50, max_n = 70, desired_power = 90)
# }
Run the code above in your browser using DataLab