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)
  
})
jazznbass/scan_develop documentation built on July 3, 2025, 6:15 p.m.