R/ExWAS-show.R

In rexposome: Exposome exploration and outcome data analysis

setMethod(
    f = "show",
    signature = "ExWAS",
    definition = function(object) {
        cat("An object of class 'ExWAS'\n\n")
        ff <- as.character(object@formula)
        cat("      ",ff[2], ff[1], gsub(" ", "", ff[3]), "\n\n")
        cat("Tested exposures: ", length(names(object)), "\n")
        if(object@effective != 0) {
            cat("Threshold for effective tests (TEF): ",
                format(object@effective, digits = 3, scientific = TRUE), "\n")
        } else {
            cat("Threshold for effective tests (TEF):  NOT COMPUTED\n")
        }
        cat(" . Tests < TEF:", sum(object@comparison$pvalue < tef(object)), "\n")
    }
)