tests/testthat/test_matInvSqrt.R

context("matInvSqrt")

test_that("matInvSqrt produces a the matrix inverse squareroot", {
  expect_equal(matInvSqrt(diag(rep(1, 4))), diag(rep(1, 4)))
})
BenBarnard/slidR documentation built on March 21, 2018, 2:26 p.m.