Update RegressBranchLengthOnTime.R

added scale bar