Nothing
base.lmadd <- lm(B1930 ~ Location + Treatment, ice)
anova(base.lmadd)
baseplot <- xplot(base.lmadd,w=c(5,2))
printPlot(xplot(base.lmadd,w=5),size='medium',file='ice-base-resid1')
printPlot(xplot(base.lmadd,w=2),size='medium',file='ice-base-resid2')
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.