R/show-methods.R

In StanleyXu/egquery: Loci2path: regulatory annotation of genomic intervals based on tissue-specific expression QTLs

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" )
    }
)