Both of the subs work. Now I have to get the data into R