tests/testthat/test-spectraltad.R

context("test-spectraltad")

test_that("TAD calling works", {
  data("rao_chr20_25_rep")
  expect_equal(nrow(SpectralTAD(rao_chr20_25_rep, "chr20")$Level_1), 165)
})
cresswellkg/SpectralTAD documentation built on Nov. 23, 2020, 2:25 a.m.