tests/testthat/test_scalefaster.R

In Zepeng-Mu/fasterscale: A faster version of scale function

context("scalefaster")

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