R/SMITE-internal.R

setMethod(
    f="annotationOutput",
    signature="PvalueAnnotation",
    definition=function(pvalue_annotation){
        metadata_sum <- slot(slot(pvalue_annotation, "modifications"), "metadata")$m_summary
        metadata_sum <- cbind(rownames(metadata_sum), metadata_sum)
        colnames(metadata_sum)[1] <- "genes"
        if(nrow(Biobase::pData(pvalue_annotation@expression)) > 0){

            exprs <- Biobase::pData(pvalue_annotation@expression)
            exprs <- cbind(rownames(exprs), exprs)
            metadata_sum <- merge(metadata_sum, exprs, by=1, all=TRUE)
        }
        metadata_sum
    }
)

setMethod(
    f="returnPvalueCol",
    signature="PvalueObject",
    definition=function(pval_object, col_name){

        return(slot(pval_object,
                    "pval_data")[, grep(col_name,
                                        colnames(slot(pval_object,
                                                      "pval_data")))])
    }
)

Try the SMITE package in your browser

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

SMITE documentation built on Nov. 8, 2020, 5:14 p.m.