input <- stats::ts(c(50, 90, 50, 30, 80, 80, 30, 70, 60, 10, 40, 20, 40,
20, 10, 30, 60, 70, 40, 70, 10, 30, 30, 40, 30, 100, 60, 90, 60,
100),s=1,f=1)
usethis::use_data(input, overwrite=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.