search for: notbls

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...