tests/testthat/test_CTDC.R

In ftrCOOL: Feature Extraction from Biological Sequences

context("Just testing CTDC functionality")

test_that("Check whether CTDC works properly",{

  ctdc<-as.vector(CTDC(seqs="AYAAACAACAFL",normalized = FALSE))
  # 222223223233
  # 232222222233
  # 131112112133


  # 222223223233
  # 131111111132
  # 212221221211
  expected9<-c(0,8,4,9,1,2,5,7,0)
  ctdc<-ctdc[1:9]
  names(expected9)<-NULL
  names(ctdc)<-NULL
  expect_equal(ctdc,expected9)

})