# NOT RUN {
h1 <- ts(data=cbind(1:24), start=c(2001, 1), frequency=12)
h2 <- ts(data=cbind(1:24, 25:48), start=c(2001, 1), frequency=12)
h3 <- ts(data=cbind(1:4, 5:8, 9:12), start=c(2001, 1), frequency=4)
colnames(h2) <- c("aa", "bb")
colnames(h3) <- c("cc", "dd", "ee")
h1; h2; h3
test <- list(t1 = h1, t2 = h2, t3 = h3)
# }
# NOT RUN {
# test.csv can be saved at a specific working directory
getwd(); setwd("c:/aERER"); getwd()
write.list(z = test, file = "test.csv")
# }
Run the code above in your browser using DataLab