ns <- 100
nps <- 1000
np <- 10
intensities <- matrix(rnorm(ns*nps*np, 8000, 400), nc=ns)
ids <- rep(as.character(1:nps), each=np)
bgCorrected <- backgroundCorrect(intensities)
normalized <- normalize(bgCorrected)
summarizationMethods()
expression <- summarize(normalized, probes=ids)
intensities[1:20, 1:3]
expression[1:20, 1:3]
target <- rnorm(np*nps)
normalizedToTarget <- normalizeToTarget(intensities, target)
if (require(oligoData) & require(pd.hg18.60mer.expr)){
## Example of normalization with real data
data(nimbleExpressionFS)
boxplot(nimbleExpressionFS, main='Original')
for (mtd in normalizationMethods()){
message('Normalizing with ', mtd)
res <- normalize(nimbleExpressionFS, method=mtd, verbose=FALSE)
boxplot(res, main=mtd)
}
}
Run the code above in your browser using DataLab