The R script used to perform the analysis and produce the tidy_data.txt fil