run_analysis.R

1st version