Nothing
library(dygraphs) hw <- HoltWinters(ldeaths) p <- predict(hw, n.ahead = 36, prediction.interval = TRUE, level = 0.95) ts <- cbind(ldeaths, p) dygraph(ts, "Deaths from Lung Disease (UK)") %>% dySeries("ldeaths", label = "Deaths") %>% dySeries(c("p.lwr", "p.fit", "p.upr"), label = "Predicted")
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.