french <- stats::ts(c(108, 108, 110, 106, 108, 108, 105, 100, 97, 95, 95,
92, 95, 95, 98, 97, 101, 104, 101, 99, 95, 95, 96, 96, 97, 98, 94,
92),f=12,s=1)
usethis::use_data(french, overwrite=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.