Create run_analysis.R

R script that transform the raw data into to tidy data set