tests/testthat/test-minMaxScale.R

context('minMaxScale')

test_that('minMaxScale works',{
  s <- seq(0,10,length.out = 11)
  s <- minMaxScale(s)
  
  expect_equal(s,seq(0,1,length.out = 11))
})
jasenfinch/pdi documentation built on Feb. 13, 2021, 2:20 p.m.