tests/testthat/test_PSTNPds.R

context("Just testing PSTNPds functionality")

test_that("Check whether length of PSTNPds vector is correct",{

  pstFunc<-as.vector(PSTNPds(seqs="ATAAACG",pos = c("ATAAGCG","ATCCCCG"),neg = c("AAAACCG","CGCCACT")))


  expect_equal(length(pstFunc),5)

})

Try the ftrCOOL package in your browser

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

ftrCOOL documentation built on Nov. 30, 2021, 1:07 a.m.