R/summary.lacv.R

In costat: Time Series Costationarity Determination

summary.lacv <-
function (object, ...) 
{
    nlags <- dim(object$lacv)
    ntime <- nlags[1]
    nlags <- nlags[2]
    cat("Name of originating time series: ", object$name, "\n")
    cat("Date produced: ", object$date, "\n")
    cat("Number of times: ", ntime, "\n")
    cat("Number of lags: ", nlags, "\n")
}