data(PalateData)
reducedSet <- filterArray(PalateData, keep=c("MIR", "LET", "POSCON", "CALIB"),
frac=1.1, number=3, reps=4)
ndata.none <- normalizeWithinArrays(reducedSet, method="none")
ndata.median <- normalizeWithinArrays(reducedSet, method="median")
ndata.loess <- normalizeWithinArrays(reducedSet, method="loess")
ndata.quantile <- normalizeBetweenArrays(reducedSet, method="quantile")
ndata.all <- list(ndata.none, ndata.median, ndata.loess,
ndata.quantile)
res <- MADvsMedianPlot(ndata.all, channel="R", group="probe.type",
subset=c("MMU miRNAs", "Other miRNAs", "Control"))
print(res)
Run the code above in your browser using DataLab