Nothing
utilities$ccfpday <- utilities$ccf / utilities$billingDays
plot1 <- xyplot( ccfpday ~ (year + month/12), utilities, groups=month )
plot2 <- bwplot( ccfpday ~ factor(month), utilities )
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.