# Unit 13 AR(p)

This is basically the same thing, with the same conclusion, except instead of having clearly defined behavior based on the sine of the roots, the closer the absolute value of the roots is to one the more dominant that behavior is in the realization. To solve these, we will use this brilliant factor.wge function:

library(tswge)
factor.wge(phi = c(0.7, 0.4, 0.3, -0.4, -0.7, 0.1, -0.1))
##
## Coefficients of Original polynomial:
## 0.7000 0.4000 0.3000 -0.4000 -0.7000 0.1000 -0.1000
##
## Factor                 Roots                Abs Recip    System Freq
## 1-2.0903B+1.2507B^2    0.8357+-0.3182i      1.1183       0.0579
## 1+0.7598B+0.8037B^2   -0.4727+-1.0104i      0.8965       0.3196
## 1+0.8141B             -1.2283               0.8141       0.5000
## 1-0.1836B+0.1222B^2    0.7512+-2.7602i      0.3496       0.2077
##
## 

We can use the absolute reciporacal (speling) of the root to tell if it is stationary easily. If it is less than one, we have stationarity. It has the same property in that if it is closer to one, that is a stronger characteristic in the realization.