tests/testthat/test-autocorr.R

test_that("main", {
  
  res <- autocorr(exampleABC)
  testsum <- sum(
    unlist(lapply(res$autocorr, function(x) unlist(x[,-1]))), na.rm = TRUE
  )
  
  expect_equal(round(testsum,4), -0.3649)
  
})

Try the scan package in your browser

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

scan documentation built on Aug. 8, 2023, 5:07 p.m.