tests/testthat/test_trim_motifs.R

context("trim_motifs()")

test_that("motif trimming works", {

  m1 <- create_motif("NNCCCNN", nsites = 100)
  m2 <- trim_motifs(m1)

  expect_equal(ncol(m2), 3)

})
bjmt/universalmotif documentation built on March 18, 2024, 8:32 a.m.