inst/unitTests/test_titrationResponse.R

test_titrationResponse <- function(){
    data(lifetech)
    tst <- titrationResponse(object1=lifetech, qcThreshold1=1.25)
    checkEquals(as.vector(tst), c(98, 109, 164, 43))
}

Try the miRcomp package in your browser

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

miRcomp documentation built on Nov. 17, 2017, 8:29 a.m.