R/makeparma.R

In perARMA: Periodic Time Series Analysis

makeparma <-
function(n,phi,theta,del,nprep) {

    Tp=nrow(phi)
    p=ncol(phi)
    Tq=nrow(theta)
    q=ncol(theta)
    Td=nrow(del)
    dum=ncol(del)

     if ((p & (Tp!=Td)) | (q & (Tq!=Td)))  {stop("period incompatibility")}
    T_t=Td

    a=cbind(matrix(1,T_t,1),-phi)    
    b=cbind(del,theta)               
      if (nargs()<5) {nprep=50}
      if (p==0) {nprep=0}

       ntot=n+nprep*T_t                              
      xi=rnorm(ntot)
      xi=as.matrix(xi)
                                        
     parmafil_out<-parmafil(b,a,xi)
     y=parmafil_out$y
     y=y[(nprep*T_t+1):ntot]                     

      result = list(y=y)   
      class(result) = "makeparma"
      result
}