R/print.summary.tsd.R

In pastecs: Package for Analysis of Space-Time Ecological Series

"print.summary.tsd" <-
function(x, ...) {
    cat(" Call:\n")
    cat(" ")
    dput(x$call)
    ser <- x$ts
    if (length(ser) == 1) {		# We have the decomposition of a single series in the object
    	cat("\nComponents\n")
    	print(x$series)
    } else {					# We have the decomposition of several series in the object
    	cat("\nSeries:\n")
		print(x$ts)
		cat("\n")
    	for (i in 1:length(ser)) {
    		cat("\nComponents for", ser[i], "\n")
    		print(x$series[[i]][1:10,])
    	}
    }
	invisible(x)
}