tests/testthat/test_conjoint.R

context("Just testing conjointTriad functionality")

test_that("Check conjointTriad length is correct",{

  lenConjoint<-length(as.vector(conjointTriad(seqs="AYAAAC",normalized = FALSE)))
  expectedLen<-7*7*7
  expect_equal(lenConjoint,expectedLen)

})

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.