data(expr1, expr2)
expr1 <- expr1[,1:500]
expr2 <- expr2[,1:500]
# distances as RMS difference and correlation
d_rmsd <- distee(expr1, expr2, "rmsd")
d_cor <- distee(expr1, expr2, "cor")
# plot distances against one another
plot2dist(d_rmsd, d_cor)
Run the code above in your browser using DataLab