tests/testthat/test-center.R

In Zack-83/maRgheRitaR: Centering and Scaling of Numeric Vectors

context("test-center.R")

test_that("centering works, also relying on default of desired parameter", {
    expect_equal(center(c(1,2,3)), c(-1,0,1))
    expect_equal(center(c(1,2,3),1), c(0,1,2))
})