Finalising run_analysis.R script and tidy data set