Create RegressBranchLengthOnTime.R