tidied up rankall.R, dplyr'd up rankhospital.R

added source() to test scripts