R/thresholdFingerprint.R

In pathprint: Pathway fingerprinting for analysis of gene expression arrays

Defines functions thresholdFingerprint

Documented in thresholdFingerprint

thresholdFingerprint <-
function(SCE, platform){
    #  data(platform.thresholds)
    # apply threshold
    thresholdTable<-platform.thresholds[[platform]]
    SCE.threshold<-(SCE>thresholdTable[,"high"]) - (SCE<thresholdTable[,"low"])
    return(SCE.threshold)
}

Try the pathprint package in your browser