inst/unitTests/test_acf2.R

test_acf2 <- function(){
  set.seed(123)
  x <- rnorm(100)
  lag.max <- 10
  answer <- acf(x, lag.max=lag.max, plot=FALSE)[[1]][lag.max+1, , 1]
  checkEquals(acf2(x), answer)
}
rscharpf/VanillaICE documentation built on May 15, 2019, 5:51 p.m.