Update run_analysis.R

added write.table()