Nothing
model1 <- lm(response~trt,cholesterol)
cholesterol$x1 <- cholesterol$trt == "drugD"
cholesterol$x2 <- cholesterol$trt == "drugE"
model2 <- lm(response~ 1 + x1 + x2 , cholesterol)
anova(model1,model2)
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.