Nothing
AR.Fore <-
function(x,b,h)
{
n <- nrow(x)
p <- length(b)-1
b1 <- b[p+1]
b2 <- b[1:p]
rx <- x[(n-p+1):n,1]
for( i in 1:h)
{
f <- b1 + sum( b2 * rx[length(rx):(length(rx)-p+1)])
rx <- c(rx,f)
}
f <- rx[(p+1):(p+h)]
return(as.matrix(f))
}
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.