tests/testthat/test_convergent_cross_mapping.R

In travisbyrum/constructnet: Network reconstruction from time series

context("Testing Network Distance")

test_that("convergent_cross_mapping", {
  TS <- matrix(
    c(-1, -1, -2, -1, 4, 7, 8, -3, -2, 1, 1, 4, 0, 2, 2, 1, 3, 2, -3, -1, 9),
    nrow = 3,
    ncol = 7,
    byrow = TRUE
  )

  s <- convergent_cross_mapping_fit(TS)
})