Full complete script

Final R script with tidy data set