I ran a 2-way interaction aov() on data5 but it didn't estimate the interaction term. What goes wrong?
data5 <- structure(list(salary_in_usd = c(180000L, 120000L, 215300L, 158200L,
140400L, 215300L, 31615L, 35590L, 52396L, 40000L, 122346L, 135000L,
205300L, 140400L, 140000L, 183228L, 91614L, 185100L, 200000L,
120000L, 230000L, 100000L, 165000L, 86703L, 140000L, 210000L,
140000L, 210000L, 140000L, 210000L, 140000L, 230000L, 150000L,
120000L, 160000L, 130000L, 100000L, 48000L), company_size = c("L",
"L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L", "L",
"M", "M", "M", "M", "M", "M", "M", "M", "M", "M", "M", "M", "M",
"M", "M", "M", "M", "M", "S", "S", "S", "S", "S", "S"), employment_type = c("FT",
"FT", "FT", "FT", "FT", "FT", "FT", "FT", "FT", "FT", "FT", "FT",
"FT", "FT", "FT", "FT", "FT", "FT", "FT", "FT", "FT", "FT", "FT",
"FT", "FT", "FT", "FT", "FT", "FT", "FT", "FT", "FT", "FT", "FT",
"FT", "FT", "PT", "FT")), class = "data.frame", row.names = c(NA,
-38L))
anova2i.result <- aov(salary_in_usd ~ company_size * employment_type, data = data5)
# Df Sum Sq Mean Sq F value Pr(>F)
#company_size 2 1.361e+10 6.807e+09 2.278 0.118
#employment_type 1 3.888e+08 3.888e+08 0.130 0.721
#Residuals 34 1.016e+11 2.988e+09