initiated rankhospital.R program