inst/unitTests/test_AuxFunctions.R

In jpromeror/EventPointer: An effective identification of alternative splicing events using junction arrays and RNA-Seq data

test_AuxFunctions <- function() {
  
  checkIdentical(EventPointer:::estimateAbsoluteConc(50,50,100,1)$T1est,100)
  checkIdentical(EventPointer:::estimateAbsoluteConc(25,50,100,10)$T2est,100)
  
  Mat<-matrix(c(0,-1,1,-1,-1,1,1,-1,1,1),ncol=2)
  checkEqualsNumeric(EventPointer:::getRandomFlow(Mat)[2,1],-1,tolerance=1e-8)
  
  checkEqualsNumeric(EventPointer:::IHsummarization(0.5,2,0.001,10)$Pvalues,0.5632502,tolerance=0.001)
  
  checkEqualsNumeric(sum(EventPointer:::pdist2(diag(10),diag(10))),180,tolerance=0.001)
  
}