test_that("ts.diag works", { tsd <- ts.diag(malleco) expect_equal(tsd$data$y, rep(0, 10)) })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.