#####################################################################
### Impulse response coefficients from AR(1,1) to infinite MA process.
### The infinite process is truncated at lag 20
###
k <- 1
trunc.lag <- 20
ar <- 0.7
ma <- array(-0.9,dim=c(k,k,1))
ImpulseVMA(ar,ma,trunc.lag)
#####################################################################
### Impulse response coefficients from VAR(2) to infinite VMA process
### The infinite process is truncated at default lag value = p+q
###
k <- 2
ar <- array(c(0.5,0.4,0.1,0.5,0,0.3,0,0),dim=c(k,k,2))
ma <- NULL
ImpulseVMA(ar,ma)
#####################################################################
### Impulse response coefficients from VARMA(2,1) to infinite VMA process
### The infinite process is truncated at lag 50
###
k <- 2
ar <- array(c(0.5,0.4,0.1,0.5,0,0.25,0,0),dim=c(k,k,2))
ma <- array(c(0.6,0,0.2,0.3),dim=c(k,k,1))
ImpulseVMA(ar,ma,trunc.lag=50)
Run the code above in your browser using DataLab