tests/testthat/testthat.R

testthat::test_that("Input for a partiton is a continuous variable", {
  
  genset <- sapply(1:100,function(x) paste("Gene",x))
  signature <- sapply(seq(1,100,by=2),function(x) paste("Gene",x))
  SignaturePartition <- GRridge::CreatePartition(signature,varnamesdata=genset)
  
  testthat::expect_length(SignaturePartition,length(SignaturePartition))
  
  })

Try the GRridge package in your browser

Any scripts or data that you put into this service are public.

GRridge documentation built on Nov. 8, 2020, 5:47 p.m.