Change start.time and end.time to be 'time before present' rather than time since root. Also, change plotRateThroughTime to automatically drop NA columns in the rate matrix.