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))
})

Try the pdi package in your browser

Any scripts or data that you put into this service are public.

pdi documentation built on Feb. 10, 2021, 1:08 a.m.