Nothing
head(TextbookCosts)
Books.Model <- lm(Cost ~ Field, data = TextbookCosts)
anova(Books.Model)
summary(Books.Model)
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.