Update RegressionTipToRootDistance.R