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 Sept. 9, 2024, 6:23 a.m.