> model1 <- lme(FOD_FODs ~ 0 + Condition_FODs*developmentaldisorder_FODs, random=~1|subject_FODs, + na.action=na.omit, + method = "ML", data=indvar_FODs,control = lmeControl(opt = "optim")) > anova(model1) numDF denDF F-value p-value Condition_FODs 4 3271 0.4038075 0.8060 developmentaldisorder_FODs 1 43 0.3213196 0.5738 Condition_FODs:developmentaldisorder_FODs 3 3271 0.0147161 0.9976 > shapiro.test(resid(model1)) Shapiro-Wilk normality test data: resid(model1) W = 0.98738, p-value < 2.2e-16 Can you please report these results in APA style?

The function add takes two arguments a and b and returns the sum of a and b.