Back to R version of wich.hill