tests/testthat/test-addnoise_spd.R

In mrparker909/MGLMRiem: Multivariate Generalized Linear Models on Riemannian Manifolds

test_that("testing addnoise_spd", {
  # A <- diag(rep(1,3))
  # B <- addnoise_spd(A = A, maxerr = 1)
  # 
  # 0.1*norm_TpM_spd(A,A)^2
  # C <- addrelnoise_spd(A = A, maxerr = 0.2)
  
  # set.seed(1)
  # D <- randspd(3)
  # norm_TpM_spd(D,D)^2
  # E <- addrelnoise_spd(A = D, maxerr = 1)
  
  # C <- addcornoise_spd(A,0.05)
})