data(fiftyGenes)
tinyCond <- c(rep(1,100),rep(2,25))
showPair("X1~X2",fiftyGenes, conditions=tinyCond, pch=20,
xlim=c(-4,4), ylim=c(-4,4))
#
showPair("X26~X35",fiftyGenes, conditions=tinyCond, pch=20,
xlim=c(-4,4), ylim=c(-4,4))
#
showPair("X1~X35",fiftyGenes, conditions=tinyCond, pch=20,
xlim=c(-4,4), ylim=c(-4,4))
Run the code above in your browser using DataLab