Taux d'intérêt de la réserve fédérale

Tracez la série temporelle du taux de prêt préférentiel de la banque à partir de la base de données 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]=