tests/testthat/test-center.R

In katrinleinweber/leinwebRRR: For FAIR Workshop

context("test-center.R")

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