Create as.rateData.R