tests/testthat/test_Coercion.R

test_that("SiteSetAsDataFrame", {
  data(MA0003.2)
  pwm1 <- toPWM(MA0003.2)
  seq1 <- "GAATTCTCTCTTGTTGTAGCATTGCCTCAGGGCACACGTGCAAAATG"
  siteset <- searchSeq(pwm1, seq1, seqname="seq1", strand="+", min.score="80%")
  expect_equal(ncol(as(siteset, "DataFrame")), 12L)
})
ge11232002/TFBSTools documentation built on Sept. 12, 2021, 12:07 p.m.