tests/testthat/test-FPSSM.R

In PSSMCOOL: Features Extracted from Position Specific Scoring Matrix (PSSM)

context("checking that the length of FPSSM feature vectorS is equal to 20,400 or 8,64 and for FPSSM2 is 100 or 40")

test_that("whether the FPSSM gives us the expected output",{
  ss<-FPSSM(system.file("extdata","C7GQS7.txt.pssm",package="PSSMCOOL"),20)
  expect_equal(length(ss[[1]]),20)
  expect_equal(length(ss[[2]]),400)
  s1<-system.file("extdata","C7GQS7.txt.pssm",package="PSSMCOOL")
  s2<-system.file("extdata","C7GRQ3.txt.pssm",package="PSSMCOOL")
  s<-FPSSM2(s1,s2,8)
  expect_equal(length(s),40)
})