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)
}

Try the VanillaICE package in your browser

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

VanillaICE documentation built on Nov. 8, 2020, 7:33 p.m.