tests/testthat/test-stack_normalise.R

In yliu0320/cwdata: Communicating with Data Resource Pack

test_that("stack_normalise()", {
  x <- c(10, 30, 40)
  expect_equal(
    stack_normalize(x),
    c(0.125, 0.375, .5)
  )

  x <- c(75, 0, 5, 20, NA)
  expect_equal(
    stack_normalise(x),
    c(0.75, 0, 0.05, 0.2, NA)
  )

  x <- c(NA, NA, 10)
  expect_equal(
    stack_normalize(x),
    c(NA, NA, 1)
  )
})