R/ARMAtoAR.R

In astsa: Applied Statistical Time Series Analysis

Defines functions ARMAtoAR

Documented in ARMAtoAR

ARMAtoAR <- function(ar = 0, ma = 0, lag.max=20){
  return(stats::ARMAtoMA(ar=-ma, ma=-ar, lag.max))
}

Try the astsa package in your browser