# \donttest{
observed_time_series <-
rep(c(3.5, 4.1, 4.5, 3.9, 2.4, 2.1, 1.2), 5) +
rep(c(1.1, 1.5, 2.4, 3.1, 4.0), each = 7) %>%
tensorflow::tf$convert_to_tensor(dtype = tensorflow::tf$float64)
day_of_week <- observed_time_series %>% sts_seasonal(num_seasons = 7)
local_linear_trend <- observed_time_series %>% sts_local_linear_trend()
model <- observed_time_series %>%
sts_sum(components = list(day_of_week, local_linear_trend))
states_and_results <- observed_time_series %>%
sts_fit_with_hmc(
model,
num_results = 10,
num_warmup_steps = 5,
num_variational_steps = 15)
samples <- states_and_results[[1]]
preds <- observed_time_series %>%
sts_forecast(model,
parameter_samples = samples,
num_steps_forecast = 50)
predictions <- preds %>% tfd_sample(10)
# }
Run the code above in your browser using DataLab