Initial fleshing out of rankhospital.R
Finished with part2, started part3, added test input file