Update R code

Working through the sort and select top hospital sequence.