R/Get1G.R

`Get1G` <-
function(phi,n){
 p<-length(phi)
 x0<-sum(c(1,-phi))^2
 x<-x0-rowSums(GetB(phi))-GetKappa(phi)
 c(x,rep(x0,n-2*p),rev(x))
}

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.