# NOT RUN {
library(psycho)
df <- psycho::affective
x <- aov(df$Tolerating ~ df$Salary)
x <- aov(df$Tolerating ~ df$Salary * df$Sex)
x <- anova(lm(df$Tolerating ~ df$Salary * df$Sex))
summary(analyze(x))
print(analyze(x))
df <- psycho::emotion %>%
mutate(Recall = ifelse(Recall == TRUE, 1, 0)) %>%
group_by(Participant_ID, Emotion_Condition) %>%
summarise(Recall = sum(Recall) / n())
x <- aov(Recall ~ Emotion_Condition + Error(Participant_ID), data = df)
x <- anova(lmerTest::lmer(Recall ~ Emotion_Condition + (1 | Participant_ID), data = df))
analyze(x)
summary(x)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab