bicoal <- stats::ts(c(569, 416 , 422, 565, 484, 520, 573, 518, 501,
505, 468, 382, 310, 334, 359, 372, 439, 446, 349, 395, 461, 511,
583, 590, 620, 578, 534, 631, 600, 438, 516, 534, 467, 457, 392,
467, 500, 493, 410, 412, 416, 403, 422, 459, 467, 512, 534, 552,
545),f=1,s=1920)
usethis::use_data(bicoal, overwrite=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.