# NOT RUN {
model <- ssm_ung(y = c(1,4,3), Z = 1, T = 1, R = 0.5, P1 = 2,
distribution = "poisson")
model2 <- bsm_ng(y = c(1,4,3), sd_level = 0.5, P1 = 2,
distribution = "poisson")
logLik(model, particles = 0)
logLik(model2, particles = 0)
logLik(model, particles = 10, seed = 1)
logLik(model2, particles = 10, seed = 1)
# }
Run the code above in your browser using DataLab