Final version. run_analysis.R contains 4 functions.