Removed write.table in R code