| Processor-class {PreProcess} | R Documentation |
A Processor represents a function that acts on the data of a
some object to process it in some way. The result is always
another related object, which should record some history about
exactly how it was processed.
## S4 method for signature 'Channel, Processor': process(object, action, parameter=NULL) ## S4 method for signature 'Processor': summary(object, ...)
object |
In the process method, a Channel
object. In the summary method, a Processor object |
action |
A Processor object used to process a
Channel. |
parameter |
Any object that makes sense as a parameter to the
function represented by the Processor action |
... |
Additional arguments are as in the underlying generic methods. |
The return value of the generic function process is always
an object related to its Channel input, which keeps a record
of its history. The precise class of the result depends on the
function used to create the Processor.
f:default:f name:description:action to the Channel object, updating
the history appropriately. If the parameter is NULL,
then use the default value.
The library comes with several Processor objects already
defined; each one takes a Channel as input and produces a
modified Channel as output.
PROC.SUBTRACTORChannel.PROC.THRESHOLDPROC.GLOBAL.NORMALIZATIONChannel by dividing by a global constant. If the
parameter takes on its default value of 0, then divide by the 75th
percentile.
PROC.LOG.TRANSFORMPROC.MEDIAN.EXPRESSED.NORMALIZATIONPROC.SUBSET.NORMALIZATIONPROC.SUBSET.MEAN.NORMALIZATIONKevin R. Coombes <kcoombes@mdanderson.org>
Channel, process,
Pipeline, CompleteChannel
# simulate a moderately realistic looking microarray
nc <- 100
nr <- 100
v <- rexp(nc*nr, 1/1000)
b <- rnorm(nc*nr, 80, 10)
s <- sapply(v-b, max, 1)
ct <- ChannelType('user', 'random', nc, nr, 'fake')
subbed <- Channel(name='fraud', parent='', type=ct, x=s)
rm(ct, nc, nr, v, b, s) # clean some stuff
# example of standard data processing
nor <- process(subbed, PROC.GLOBAL.NORMALIZATION)
thr <- process(nor, PROC.THRESHOLD, 25)
processed <- process(thr, PROC.LOG.TRANSFORM, 2)
summary(processed)
par(mfrow=c(2,1))
plot(processed)
hist(processed)
par(mfrow=c(1,1))
image(processed)
rm(nor, thr, subbed, processed)