Create RegressionTipToRootDistance.R