prior <- uniform(0.1 * sd(log10(UKgas)), 0, 1)
model <- bsm_lg(log10(UKgas), sd_y = prior, sd_level = prior,
sd_slope = prior, sd_seasonal = prior, period = 4)
fit <- run_mcmc(model, iter = 1e4)
res <- fitted(fit, model)
head(res)
Run the code above in your browser using DataLab