Nothing
`LoglikelihoodAR` <-
function(phi, z, MeanValue=0){
if(length(phi)==0) phi=0
phis<-c(1,-phi)
y<-z-MeanValue
n<-length(z)
-log(DetAR(phi))/2 - (n/2)*log(sum(crossprod(phis,ChampernowneD(y,length(phis)-1,MeanZero=TRUE))*phis)/n)
}
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.