run_analysis.R for getdata project

Getting and Cleaning Data project analysis script for retrieving and
tidying the samsung dataset.