tests/testthat.R

test_that("timeDifference can work properly", {
  t0 <- 10
  times <- c(6:10)
  expect_equal(timeDifference(t0, times), c(4:0))
})
jchen032294/expSmooth documentation built on May 17, 2019, 1:29 p.m.