tests/testthat/test-function-relativeCumulatedSum.R

test_that("relativeCumulatedSum() works", {

  expect_identical(relativeCumulatedSum(1), 100)
  
  expect_identical(lastElement(relativeCumulatedSum(1:10)), 100)
  expect_identical(order(relativeCumulatedSum(1:5)), 1:5)
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.