28.10

anova = aov(Strength ~ Type, data=df)
print(xtable(summary(anova)), type="html")
Df Sum Sq Mean Sq F value Pr(>F)
Type 3 208008.50 69336.17 24.87 0.0000
Residuals 76 211865.70 2787.71