R Code To Run Anova In Real Life