Federal Reserve Prime Rate

Plot the time series for the Bank Prime Loan Rate from FRED.

In[1]:=

fred = ServiceConnect["FederalReserveEconomicData"]

Out[1]=

In[2]:=

prime = fred["SeriesData", "ID" -> "PRIME"]

Out[2]=

In[3]:=

DateListStepPlot[prime, PlotRange -> {{DateObject[{1990}], Today}, {0, 12}}, PlotTheme -> {"Scientific", "Wide"}, ImageSize -> 550]

Out[3]=