# NOT RUN {
api_key <- "abcdefghijklmnopqrstuvwxyz123456"
# What category is the unemployment rate in?
un_cat <- fred_category("UNRATE", key=api_key)
# What other series are in the same category?
other_in_cat <- fred_category_series(un_cat$id, key=api_key)
head(other_in_cat)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab