tests/testthat/test-utils.R

In poissonconsulting/dts: Manipulate Date/POSIXct Time Series Data Frames

test_that("mean_na_rm", {
  expect_identical(mean_na_rm(c(1:2, NA)), 1.5)
  expect_identical(mean_na_rm(NA), NaN)
})

test_that("pnorm_arrival_departure", {
  expect_equal(pnorm_arrival_departure(1:2, residence = 1/2), 
                   c(0.14988228, 0.04405707))
})

test_that("normalize", {
  x <- normalize(c(0.1, 100, 10))
  expect_identical(sum(x), 1)
  expect_identical(x[1], 0.1/110.1)

  x <- normalize(c(0.1, 100, 10), proportion = 0.95)
  expect_identical(sum(x), 1)
  expect_identical(x[1], 0)
})