solve best.R
add rankhospital.R