Tasa de interés preferencial de la Reserva Federal

Represente gráficamente las series temporales para la tasa bancaria preferencial de interés de préstamo de 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]=