This is everything I entered and the output.
two.way <- aov(Facefactor ~ Teamsport + College + College:Teamsport, data = Male_Data_R_Face_Factor) summary(