Create as.rateMatrix.R