##generate data, estimate model of class 'arx':
set.seed(123)
y <- rnorm(30)
arxmod <- arx(y, mc=TRUE, ar=1:3)
as.isat(arxmod)
##from 'gets' to 'lm':
getsmod <- getsm(arxmod, keep=1)
as.isat(getsmod)
Run the code above in your browser using DataLab