Half-way

run_analysis.R: first part (not tidy)
ExtractData.R: fixed