inst/unitTests/test_accuracy.R

test_accuracy <- function(){
    data(lifetech)
    tst <- accuracy(object1=lifetech, qcThreshold1=1.25)
    checkEquals(as.vector(tst[2:3,]), c("0.85", "0.28", "0.9",
                                        "0.18", "0.9", "0.14"))
}

Try the miRcomp package in your browser

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

miRcomp documentation built on Nov. 1, 2018, 2:38 a.m.