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)
})

Try the TFBSTools package in your browser

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

TFBSTools documentation built on Nov. 8, 2020, 8:14 p.m.