> posthoc <- glht(anova_result, linfct = mcp(Condition_SNB = "Tukey")) > summary(posthoc) Using R, please write me a code to create a table of these results to be copied and pasted in LateX
anova_result <- aov(SNB ~ Condition, data = csv_data) posthoc <- glht(anova_result, linfct = mcp(Condition_SNB = "Tukey")) df_posthoc <- tidy(posthoc) df_posthoc$`Tukey HSD` <- round(df_posthoc$`Tukey HSD`, digits = 2) df_posthoc