# only missing data, simulates from prior
model <- bsm_lg(rep(NA, 25), sd_level = 1,
sd_y = 1)
# use antithetic variable for location
sim <- sim_smoother(model, nsim = 4, use_antithetic = TRUE, seed = 1)
ts.plot(sim[, 1, ])
cor(sim[, 1, ])
Run the code above in your browser using DataLab