Add the start of our find distance script in R