inst/unitTests/test_printFeatures.R

test_preselect <- function() {
    cwd <- system.file("extdata", package="PAA")
    load(paste(cwd, "/Alzheimer.RData", sep=""))
    load(paste(cwd, "/selectFeaturesResultsFreq.RData", sep=""))

    test.results <- printFeatures(features=selectFeatures.results$features, elist=elist)



    checkTrue(is.data.frame(test.results))
    checkTrue(nrow(test.results) >= 1)
}

Try the PAA package in your browser

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

PAA documentation built on Nov. 8, 2020, 8:30 p.m.