inst/unitTests/test_CAFE_armStats.R

In CAFE: Chromosmal Aberrations Finder in Expression data

test_CAFE_armStats <- function(){
  data(CAFE_data)
  f <- armStats(CAFE_data,chromNum="ALL",samples=c(1,3))
  f2 <- armStats(CAFE_data,chromNum="ALL",samples=c(1,3),enrichment="less")
  
  checkTrue(length(f)==length(f2))
  checkTrue(length(f)==22)
  checkTrue(length(f2)==22)
  
  for(i in 1:22){
    checkTrue(f[i]<=1)
    checkTrue(f2[i]<=1)
  }
}