R/show-methods.R

setMethod(
    "show",
    signature = "eqtlSet",
    definition = function(object) {
        cat("An object of class ", class(object), "\n", sep = "")
        cat(" eQTL collected from tissue:", tissue(object), "\n")
        cat(" number of eQTLs:", length(eqtlId(object)), "\n")
        cat(" number of associated genes:", length(unique(eqtlGene(object))),
            "\n")
    }
)
setMethod(
    "show",
    signature = "geneSet",
    definition = function(object) {
        cat("An object of class ", class(object), "\n", sep = "")
        cat(" Number of gene sets:", length(geneSetList(object)), "\n")
        if (length(geneSetList(object)) > 0) {
            rr = range(lapply(geneSetList(object), length))
            cat("   ", rr[1], "~", rr[2], " genes within sets\n")
        }
    }
)
setMethod(
    "show",
    signature = "loci2pathResult",
    definition = function(object) {
        cat("An object of class ", class(object), "\n", sep = "")
        cat("Number of eQTL tissue(s): ", length(coveredGene(object)), "\n")
        cat("Number of enriched pathway:", nrow(resultTable(object)), "\n")
        rr=range(resultTable(object)$pval_fisher_gene)
        cat("  p-val range: ", rr[1], "~", rr[2], "\n" )
    }
)
StanleyXu/loci2path documentation built on Sept. 11, 2019, 8:21 a.m.