data("poisson_series")
model <- bsm_ng(y = poisson_series, sd_slope = 0.01, sd_level = 0.1,
distribution = "poisson")
out <- gaussian_approx(model)
for(i in 1:7)
cat("Number of iterations used: ", i, ", y[1] = ",
gaussian_approx(model, max_iter = i, conv_tol = 0)$y[1], "\n", sep ="")
Run the code above in your browser using DataLab