tests/testthat/test_rho.R

testthat("rho_gaus", {
  skip("Fails due to numerical reasons: round(...) not equal to c(0.7122, -0.2128, 1.0636, 1.0105, 1.162).
1/5 mismatches
[1] 0.713 - 0.712 == 7e-04")
  expect_equal(round(rho_gaus(c(-0.4121757 ,-2.2634588 , 0.2893038,  0.1831577,  0.4861016),1), 4), c(.7129,-.2128,1.0636,1.0105,1.1620))
})
Mufabo/ICASSP20.T6.R documentation built on May 30, 2021, 11:20 a.m.