Extract data windows around event dates

Given a fred_tbl (or any data frame with a date column) and a vector of event dates, returns one row per (event, observation) pair where the observation falls inside the requested window. Useful for event studies around FOMC decisions, recession peaks, or release dates.

Usage

fred_event_window(data, events, window = c(-30L, 90L))

Arguments

data

A fred_tbl or data.frame with a date column.

events

A character or Date vector of event dates.

window

Integer length-2. Days before (negative or zero) and after (positive or zero) each event date. Default c(-30L, 90L).

Value

A fred_tbl with the original columns plus event_date and days_from_event.

Details

Long-format input with series_id/value is supported, as is wide-format input from fred_series(..., format = "wide"). The window is in calendar days; for monthly or quarterly data, choose a window large enough to capture at least one observation.

See also

Other utilities: fred_aggregate(), fred_interpolate()

Examples

# Synthetic example — works offline
d <- seq(as.Date("2024-01-01"), as.Date("2024-12-31"), by = "month")
df <- data.frame(date = d, value = seq_along(d))
events <- as.Date(c("2024-03-15", "2024-09-15"))
fred_event_window(df, events = events, window = c(-30L, 60L))
#> # FRED: 6 rows
#>         date value event_date days_from_event
#> 1 2024-03-01     3 2024-03-15             -14
#> 2 2024-04-01     4 2024-03-15              17
#> 3 2024-05-01     5 2024-03-15              47
#> 4 2024-09-01     9 2024-09-15             -14
#> 5 2024-10-01    10 2024-09-15              16
#> 6 2024-11-01    11 2024-09-15              47

# \donttest{
op <- options(fred.cache_dir = tempdir())
# With live FRED data: UNRATE around 2024 SEP meetings (needs API key)
if (FALSE) { # \dontrun{
  ur <- fred_series("UNRATE", from = "2023-01-01")
  sep <- fred_fomc_dates(year = 2024, sep_only = TRUE)
  fred_event_window(ur, events = sep$date, window = c(-60L, 60L))
} # }
options(op)
# }