Initial upload of run_analysis.R

Tidy data of smartphone experiment