# NOT RUN {
# Local level model
b <- 1
C <- as.matrix(1)
stsm1 <- stsm(b = b, C = C, s2v = c(lvl = 1469.619), s2u = c(irr = 15103.061))
autocov(stsm1)
ar1 <- um(ar = "1-0.8B")
autocov(ar1, lag.max = 13)
# }
Run the code above in your browser using DataLab