if (require(ALL)){
data(ALL, package = "ALL")
ALL <- addGeneInfo(ALL)
spectralMap(object = ALL, groups = "BT", legendPos = 'bottomright')
spectralMap(object = ALL, groups = "BT",
plot.mpm.args = list(label.tol = 10, rot = c(-1, 1), sub = "", lab.size = 0.65,
dim = c(1,2), sampleNames = FALSE, zoom = c(1,5), col.size = 2,
do.smoothScatter = TRUE))
spectralMap(object = ALL, groups = "BT",
plot.mpm.args = list(label.tol = 10, rot = c(-1, 1), sub = "", lab.size = 0.65,
dim = c(1,2), sampleNames = as.character(pData(ALL)$BT),
zoom = c(1,5), col.size = 2, do.smoothScatter = TRUE))
}
Run the code above in your browser using DataLab