R/GetARMeanMLE.R

`GetARMeanMLE` <-
function(z, phi){
 stopifnot (length(z)>=2*length(phi))
 g1<-Get1G(phi, length(z))
 sum(g1*z)/sum(g1)
 }

Try the FitAR package in your browser

Any scripts or data that you put into this service are public.

FitAR documentation built on May 2, 2019, 3:22 a.m.