Displaying 1 result from an estimated 1 matches for "notbls".
2004 Jun 10
1
X-12-ARIMA
...on(tso,file){
write.table(cbind(time(tso) %/% 1, cycle(tso), tso),
file=paste(file,".dat",sep=""),
sep=" ", quote=F, row.names=F, col.names=F)
}
readx12out <- function(file, adtype = "M", calendar = F, tblnames = NULL) {
notbls <- 6 + (calendar != F) + length(tblnames)
comp <- vector("list", notbls)
if(calendar == F) {
names(comp) <- c("original", "seasonal", "adjusted", "trend",
"irregular", "weights", tbl...