tests/testthat/setup-expectations.R

# setup-expectations.R

expect_aligned <- function(A, B, tol=.01){
  expect_lt( avg_angular_distance(A, B), tol)
}
kwstat/nipals documentation built on Feb. 6, 2024, 7:20 a.m.