Nothing
predict.artfima <- function(object, n.ahead = 10, ...) {
z <- object$z
n <- length(z)
r <- (object$sigmaSq)*(object$tacvf)
zm <- object$constant
r <- artfimaTACVF(maxlag=n+n.ahead, obj=object)
TrenchForecast(z, r, zm, n, maxLead=n.ahead)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.