How to control number of decimal digits in write.table() output? How to control number of decimal digits in write.table() output? r r