Update RegressBranchLengthOnTime.R