> 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

posthoc <- glht(anova_result, linfct = mcp(Condition_SNB = "Tukey"))

# create a table of the results
tab <- as.data.frame(summary(posthoc))
tab <- tab[-1,]

#rename the columns
names(tab)[names(tab) == "p values"] <- "p"
names(tab)[names(tab) == "Estimate"] <- "Est"
names(tab)[names(tab) == "Estimate[Standard Error]"] <- "Std.Err"
names(tab)[names(tab) == "Std.Err"] <- "Std.Error"
names(tab)[names(tab) == "Lower"] <- "Lower.CI"
names(tab)[names(tab) == "Upper"] <- "Upper.CI"
names(tab)[names(tab) == "Lower.CI"] <- "Lower.95CI"
names(tab)[names(tab) == "Upper.CI"] <- "Upper.95CI"

#create the table
print(