# NOT RUN {
data(depression)
## MLR model
modMLR <- lm(depress~trauma+control,data=depression)
anovaTable(modMLR)
## ANOVA model
depression$gender <- factor(depression$gender)
depression$history <- factor(depression$history)
modAOV <- lm(depress~-1+gender+history+gender:history,data=depression)
anovaTable(modAOV)
# }
Run the code above in your browser using DataLab