write.csv in R: Something between