data(expr1, expr2)
expr1 <- expr1[,1:500]
expr2 <- expr2[,1:500]
# distance as RMS difference
d <- distee(expr1, expr2)
# pull out the self-self distances
d_selfself <- pulldiag(d)
# samples with smallest self-self correlation
sort(d_selfself)[1:10]
Run the code above in your browser using DataLab