tests/testthat/test-rescale.R

context("Checking recale")

test_that("rescale works",
          {
            x <- 1:5
            r <- rescale(x, 0, 1)
            expect_equal( range(r), c(0, 1) )
          } )
mbojan/mbtools documentation built on Nov. 9, 2017, 3:21 p.m.