tests/testthat/test-automorphismByRanges.R

test_that("automorphismByRanges function test", {
    data(autm, package = "GenomAutomorphism")
    test1 <- automorphismByRanges(x = autm[c(24:35)])
    expect_true(test1$cube[1] == "TGCA")
})
genomaths/GenomAutomorphism documentation built on May 10, 2024, 12:11 a.m.