Nothing
`GetFitAR` <-
function(z, p, ARModel="ARz", ...){
if (ARModel=="ARp")
GetFitARpLS(z, p, ...)
else #also for ARModel="AR"
GetFitARz(z, p, ...)
}
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.