apa_out <- apa_print(aov(yield ~ N * P, npk))
# Standard output with separate columns for degrees of freedom:
apa_out$table
# Modified output where degrees of freedom are incorporated into the variable
# label of column 'statistic':
transmute_df_into_label(apa_out)$table
Run the code above in your browser using DataLab