R/print.fts.R

`print.fts` <- function (x, digits = NULL, ...) 
{
    if (class(x)[1] == "fts"){
        cat("Functional time series")
        cat(paste("\n y:", x$yname))
        cat(paste("\n x:", x$xname, "\n"))
    }
    else {
         stop("object is not a functional time series.")
    }
}

Try the rainbow package in your browser

Any scripts or data that you put into this service are public.

rainbow documentation built on Jan. 29, 2019, 5:09 p.m.