## Not run:
# ## From Venables and Ripley (2002) p. 165.
# npk_aov <- aov(yield ~ block + N * P * K, npk)
# anova_table <- arrange_anova(summary(npk_aov))
# print_anova(anova_table)
# ## End(Not run)
Run the code above in your browser using DataLab