Adjustments to plotRateThroughTime R function