shoe /* 1=shoe, 0=toner * / celebrity /* 1=celebrity, 0=online customer * attention /* response variable */ Fit the 2-Way ANOVA model as a regression model with X1 = 1 if shoes, -1 if Toner; and X2 = 1 if Celebrity, -1 if online customer. Test for interaction, and main effects. Use the aov function in R. Test for main interaction and main effects. (use the contrasts=c("contr.sum", "contr.poly") option) Compare the results