Run_analysis updated

Included write.table