Nothing
`FitAR` <-
function(z,p,lag.max="default", ARModel="ARz", ...){
if (ARModel=="ARz")
out<-FitARz(z,p,lag.max=lag.max, ...)
else
out <- FitARp(z,p,lag.max=lag.max, ...)
out
}
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.