library(bridgr)
# Example usage
target_series <- suppressMessages(tsbox::ts_tbl(data.frame(
time = seq(as.Date("2020-01-01"), as.Date("2022-12-01"), by = "quarter"),
value = rnorm(12)
)))
indic_series <- suppressMessages(tsbox::ts_tbl(data.frame(
time = seq(as.Date("2020-01-01"), as.Date("2023-01-01"), by = "month"),
value = rnorm(37)
)))
bridge_model <- suppressMessages(bridge(
target = target_series,
indic = indic_series,
indic_predict = "mean",
indic_aggregators = "mean",
indic_lags = 2,
target_lags = 1,
h = 1
))
# Forecasting using the bridge model
fcst <- forecast(bridge_model)
Run the code above in your browser using DataLab