tests/testit/test-developer-fastlag.R

In gsDesign2: Group Sequential Design with Non-Constant Effect

assert("internal function fastlag() produces expected results", {
  observed <- fastlag(1:5, first = 100)
  expected <- c(100, 1:4)
  (observed %==% expected)

  # can also work with list()
  observed <- fastlag(list(1, 2, 3, 4, 5), first = 100)
  expected <- list(100, 1, 2, 3, 4)
  (observed %==% expected)
})