[R-br] ANOVA in R using the function lapply ans terms