Question: Function for median similar to "which.max" and "which.min" / Extracting median rows from a data.frame