tests/testthat/test-calculateMaxEntScanScore.R

test_that("calculateMaxEntScanScore works for example SA", {
  x <- calculateMaxEntScanScore('TTCCAAACGAACTTTTGTAGGGA',3)
  expect_equal(x, "2.89")
})

test_that("calculateMaxEntScanScore works for example SD", {
  x <- calculateMaxEntScanScore('GAGGTAAGT',5)
  expect_equal(x, "11.08")
})
caggtaagtat/ModCon documentation built on March 12, 2021, 4:12 a.m.