tests/testthat/test_PSSM.R

context("Just testing PSSM functionality")

test_that("Check whether length of PSSM vector is correct",{
  PredPSSMdir<-system.file("testForder/",package="ftrCOOL")
  PredPSSMdir<-paste0(PredPSSMdir,"/test_PSSM/")
  pssmFunc<-PSSM(PredPSSMdir,outFormat="mat")
  expect_equal(dim(pssmFunc),c(2,4920))
})

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.