tests/testthat/test-SCA_correlation_matrix_data.R

In currocam/toolkit4pySCA: A set of useful functions for performing an Statistical Coupling Analysis from scratch in R and using pySCA

test_that("it works", {
  db <- pySCA_HBG2_HUMAN
  data <- SCA_correlation_matrix_data(db)
  expect_equal(nrow(data), 139)
})
test_that("empty list gives error", {
  SCA_correlation_matrix_data(list()) %>%
    testthat::expect_error()
})