model <- bsm_lg(Nile,
sd_level = tnormal(120, 100, 20, min = 0),
sd_y = tnormal(50, 50, 25, min = 0),
a1 = 1000, P1 = 200)
ts.plot(cbind(Nile, fast_smoother(model)), col = 1:2)
model <- bsm_lg(Nile,
sd_y = tnormal(120, 100, 20, min = 0),
sd_level = tnormal(50, 50, 25, min = 0),
a1 = 1000, P1 = 500^2)
out <- smoother(model)
ts.plot(cbind(Nile, out$alphahat), col = 1:2)
ts.plot(sqrt(out$Vt[1, 1, ]))
Run the code above in your browser using DataLab