tests/testthat/test_association.R

#generate sin wave test
x <- seq(-pi, pi, 0.01)
y <- sin(x)

test_that("dcor vs splines", {
  expect_false(isTRUE(all.equal(sc_splines(x,y), sc_dcor(x,y))))
})
numbats/cassowaryr documentation built on April 17, 2025, 10:36 p.m.