Create WRrank.R