tests/testthat/test-dist_M_spd.R

test_that("dist_M_spd", {
  expect_equal(dist_M_spd(X = diag(rep(1,3)), Y = diag(rep(1,3))), 0)
  expect_equal(dist_M_spd(X = diag(rep(1,3)), Y = diag(rep(2,3))), 1.2, tolerance=10^-3)
})
mrparker909/MGLMRiem documentation built on March 19, 2020, 3:37 p.m.