changed write.table to row.names=FALSE