Nothing
ARM2.order <-
function(x,y,pmax)
{
aicmat=matrix(NA,nrow=pmax);
bicmat=matrix(NA,nrow=pmax);
for (i in 1:pmax)
{
M = ARM2(x,y,p=i)
aicmat[i,]=M$aic;bicmat[i,]=M$bic;
}
p.aic=which.min(aicmat)
p.bic=which.min(bicmat)
return(list(p.aic=p.aic,p.bic=p.bic))
}
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.