Adding first R script to explore data