data(expr1, expr2)
expr1 <- expr1[,1:500]
expr2 <- expr2[,1:500]
# distance as RMS difference
d <- distee(expr1, expr2)
# focus on the self-nonself distances
# (replace self-self distances with NA)
d_selfnonself <- omitdiag(d)
Run the code above in your browser using DataLab