data(expressionSetList)
data(xmcmc)
pathToLogFiles <- system.file("logFiles", package="XDE")
load(file.path(pathToLogFiles, "BES.rda"))
load(file.path(pathToLogFiles, "postAvg.rda"))
op.conc <- symbolsInteresting(rankingStatistic=postAvg[, "concordant"])
graphics:::pairs(BES[op.conc$order, ], pch=op.conc$pch, col=op.conc$col,
bg=op.conc$bg, upper.panel=NULL, cex=op.conc$cex)
Run the code above in your browser using DataLab