tests/testthat/test-box_ljung_test.R

test_that("Box.Ljung.Test works", {
  blt <- Box.Ljung.Test(malleco, lag = 5)
  expect_equal(blt$data$y, rep(0, 5))
})

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.