R/ExWAS-show.R

In isglobal-brge/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, "\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")
        if(!is.null(object@robust.std.err)){
          cat("Robust standar errors: Computed\n")
        } else {
          cat("Robust standar errors: Not computed\n")
        }
    }
)