qsales <- stats::ts(c(362, 385, 432, 341, 382, 409, 498, 387, 473, 513,
582, 474, 544, 582, 681, 557, 628, 707, 773, 592, 627, 725, 854,
661),f=4,s=1)
usethis::use_data(qsales, overwrite=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.