# NOT RUN {
# Sun spot number data
data(Sunspot)
y <- log10(Sunspot)
z1 <- armafit(y, ar.order = 3, ma.order = 3)
z1
nd <- length(y)
armaimp(arcoef = z1$arcoef, macoef = z1$macoef, v = z1$sigma2, n = nd, lag = 20)
# }
Run the code above in your browser using DataCamp Workspace