Calculating rates in R

Not in the dataset.  Provides more control over rounding