2nd submission

Modified R script run_analysis.R  write.table