# \donttest{
op <- options(fred.cache_dir = tempdir())
try({
# Single series
gdp <- fred_series("GDP")
# Multiple series, long format
macro <- fred_series(c("GDP", "UNRATE", "CPIAUCSL"))
# Multiple series, wide format
macro_w <- fred_series(c("GDP", "UNRATE"), format = "wide")
# Readable transformation: year-on-year percent change
gdp_growth <- fred_series("GDP", transform = "yoy_pct")
# Aggregate daily to monthly
rates <- fred_series("DGS10", frequency = "m")
})
options(op)
# }
Run the code above in your browser using DataLab