Nothing
BootBC <-
function(x,p,h,nboot,type)
{x<-as.matrix(x)
if (type=="const")
M <- Bootstrap(x,p,h,nboot)
if (type=="const+trend")
M <- BootstrapT(x,p,h,nboot)
rownames(M$coef) <- ARnames(p,type); colnames(M$coef) <- "coefficients"
colnames(M$forecast) <- "forecasts"; rownames(M$forecast) <- paste("h",1:h,sep="")
return(list(coef=M$coef,resid=M$resid,forecast=M$forecast))
}
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.