tests/testthat/test_PyrPenta.R

context("PyrPenta")

test_that("PyrPenta function", {
  to.test<- c("ACAAGA", "ACTAGA", "TTGCCA", "TTCGGA")
  expect_equal(PyrPenta(to.test), c("CTTGTT", "ACTAGA", "GGCAAT", "TTCGGA"))
})

Try the ICAMS package in your browser

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

ICAMS documentation built on April 3, 2021, 5:07 p.m.