# NOT RUN {
model <- ssm_ulg(y = c(1,4,3), Z = 1, H = 1, T = 1, R = 1)
logLik(model)
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, nsim = 0)
logLik(model2, nsim = 0)
logLik(model, nsim = 10)
logLik(model2, nsim = 10)
# }
Run the code above in your browser using DataLab