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)

})

Try the universalmotif package in your browser

Any scripts or data that you put into this service are public.

universalmotif documentation built on April 8, 2021, 6 p.m.