tests/testthat/test_scale_faster.R

In zouyuxin/fasterscale: Methods for Efficiently Centering and Scaling Matrices

context('scale_faster')

test_that('scale and scale_faster return the same result',{
  X = matrix(1:20, 4, 5)
  Y1 = scale(X)
  Y2 = scale_faster(X)
  expect_equivalent(Y1, Y2, tolerance = 1e-15, scale = 1)
})