# NOT RUN {
## Set up a within design with 3 factors,
## with correlation between observations of 0.8,
## 40 participants (who do all conditions), and standard deviation of 2
## with a mean pattern of 1, 0, 1, conditions labeled 'condition' and
## 'voice', with names for levels of "cheerful", "neutral", "sad".
design_result <- ANOVA_design(design = "3w", n = 40, r = 0.8,
mu = c(1, 0, 1), sd = 2,
labelnames = c("condition", "cheerful", "neutral", "sad"))
power_result <- power_oneway_within(design_result, alpha_level = 0.05)
# }
Run the code above in your browser using DataLab