# 2-way ANOVA Example
if (requireNamespace("apaTables", quietly = TRUE)){
library(dplyr)
goggles <- apaTables::goggles
#Main Effect Means: Gender
goggles %>% filter(gender == "Female") %>% apa.desc(attractiveness)
goggles %>% filter(gender == "Male") %>% apa.desc(attractiveness)
# Main Effect Means: Alcohol
goggles %>% filter(alcohol == "None") %>% apa.desc(attractiveness)
goggles %>% filter(alcohol == "2 Pints") %>% apa.desc(attractiveness)
goggles %>% filter(alcohol == "4 Pints") %>% apa.desc(attractiveness)
# Single Cell Mean
goggles %>% filter(alcohol == "4 Pints", gender == "Female") %>%
apa.desc(attractiveness)
}
Run the code above in your browser using DataLab