Different results between summary() and apa.aov.table() about apatables

[dstanley4]

APA tables uses Type III Sum of Squares - as per SPSS. See details to reproduce numbers below:
David

1) Predictors must be factors

2) Set Helmert Contrast

3) Use Type III sum of squares via Anova from car package

4) Use lm not aov

library(apaTables)
library(car)

options(contrasts = c("contr.helmert", "contr.poly"))

lm_output <- lm(attractiveness ~ gender*alcohol, data = goggles)

Anova(lm_output, type = 3)
apa.aov.table(lm_output)

See http://www.statscanbefun.com/rblog/2015/8/27/ensuring-r-generates-the-same-anova-f-values-as-spss

[jcochero]

Thank you so much @dstanley4, I see the difference now.
Great work, love apaTables!