Nothing
require(multcomp)
airp.cint <- confint(glht(airp.lm, mcp(location = "Tukey")))
airp.cint
plot(airp.cint)
mplot(TukeyHSD(airp.lm), system = "gg") %>%
gf_theme(legend.position = "top") %>%
gf_labs(title = "")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.