data("data_ch")
settings <- initialize_settings()
data <- prepate_data(
settings = settings,
tsl = data_ch$tsl,
tsl_n = data_ch$tsl_n
)
model <- define_ssmodel(
settings = settings,
data = data
)
prior <- initialize_prior(
model = model,
settings = settings
)
# \donttest{
fit <- estimate_ssmodel(
model = model,
settings = settings,
data = data,
prior = prior,
R = 100
)
df <- transform_results(
fit = fit,
data = data,
estimate = "median"
)
# }
Run the code above in your browser using DataLab