tests/testthat/test-ts_diag.R

test_that("ts.diag works", {
  tsd <- ts.diag(malleco)
  expect_equal(tsd$data$y, rep(0, 10))
})

Try the LSTS package in your browser

Any scripts or data that you put into this service are public.

LSTS documentation built on July 29, 2021, 5:07 p.m.