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") %>%
dyRangeSelector()
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.