Modify getRateMatrixThroughTime.R to return object named 'beta' when handling bamm trait data