Adding rankall.R function