# NOT RUN {
x <- fts(index=seq(from=Sys.Date(),by="days",length.out=100),data=1:100)
colnames(x) <- "big.ass.black.dog"
csv.fname <- paste(tempfile(),".csv",sep="")
write.csv.fts(x,csv.fname)
y.csv <- read.csv.fts(csv.fname)
all.equal(x,y.csv)
# }
Run the code above in your browser using DataLab