tests/testthat/test_acf.R

context("Auto-correlation function")

test_that("Check acf result of beaver1 time series", {
  a <- el.acf(beaver1$temp, plot=F)
  
  expect_equal(round(sum(a$acf), 5), 4.60754)
})
ep1804/el documentation built on May 16, 2019, 8:17 a.m.