l<- 24
t <- seq(as.Date('2000-02-01'),by='months',length=l)
x <- rnorm(l,0,1)
y <- rnorm(l,0,2)
z <- rnorm(l,0,4)

dataf<- data.frame(t,x,y,z)
write.table(dataf, file = "c:\\temp\\test2.csv", append = FALSE, quote = TRUE, sep = ",",
            eol = "\n", na = "NA", dec = ".", row.names = F,
            col.names = TRUE, qmethod = c("escape", "double"),
            fileEncoding = "")