# NOT RUN {
# }
# 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)
# }
Run the code above in your browser using DataCamp Workspace