tests/testthat/test-normalize.R

In dominikjung42/dstools: Toolbox for data science and business data analytics

test_that("Normalize doesn't work, returns wrong min value", {
  v <- c(1:100)
  expect_equal(0, min(normalize(v)))
})

test_that("Normalize doesn't work, returns wrong max value", {
  v <- c(1:100)
  expect_equal(1, max(normalize(v)))
})