inst/unitTests/test_removeFalsePositives.R

######## Test removeFalsePositives ###########
test_removeFalsePositives <- function (){
    data(exampleMetReport)
    results <- removeFalsePositives(exampleMetReport, 50, save = FALSE)
    checkEqualsNumeric(nrow(results), 13)
}

Try the Metab package in your browser

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

Metab documentation built on May 2, 2018, 3 a.m.