data(chr21genes)
data(samplesList) # Loads 'samples.list.subset'.
data(expr) # Loads 'expr.subset'.
fs <- featureScores(samples.list.subset, chr21genes, up = 5000, down = 1000, dist = "base", freq = 1000,
s.width = 500)
fs@scores <- list(tables(fs)[[2]] - tables(fs)[[4]])
names(fs) <- "PC-Norm"
binPlots(fs, ordering = expr.subset, ord.label = "expression", plot.type = "line", n.bins = 4)
binPlots(fs, ordering = expr.subset, ord.label = "expression", plot.type = "heatmap", n.bins = 8)
Run the code above in your browser using DataLab