tests/testthat/test_EffectiveNumber.R

context("Just testing EffectiveNumberofCodon functionality")

test_that("Check lenght of vector in Effective Number of Codon is correct",{

  LenCodonFr<-length(EffectiveNumberCodon(seqs=c("ATACGAATCATA","ATGGTCCTCATGGTGGTG")))
  expected_len<-2
  expect_equal(LenCodonFr,expected_len)

})

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.