tests/testthat/test-frechet_variance_spd.R

test_that("frechet_variance_spd", {
  set.seed(123)
  Y = randspd_FAST(3, NUM = 10)
  YK=karcher_mean_spd(Y,niter=100)
  a=frechet_variance_spd(Y, maxiter = 100)
  b=frechet_variance_spd(Y,YK)
  expect_equal(a,b)
})
mrparker909/MGLMRiem documentation built on March 19, 2020, 3:37 p.m.