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))))
})

Try the cassowaryr package in your browser

Any scripts or data that you put into this service are public.

cassowaryr documentation built on Aug. 9, 2022, 5:08 p.m.