Create run_analysis.R

The  run_analysis.R  script   for   wereable computing.