tests/testthat/test_scale_faster.R

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

context("scalefaster")

test_that(
  "scale and scale_faster return the same result",
  {
    X <- matrix(1:20, 4)
    Y1 <- scale(X)
    Y2 <- scale_faster(X)
    expect_equivalent(Y1, Y2, tolerance = 1e-15, scale = 1)  # scale specifies if the tolerance is relative ..
  }
)  # from testthat package