Update run_analysis.r

updated write.table