Added some R. Starting to look at the data