Skip to content

Instantly share code, notes, and snippets.

@mbusigin

mbusigin/plotOilOERInflationModel.R

Created February 1, 2016 14:35
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mbusigin/461aec45f2da40459c90 to your computer and use it in GitHub Desktop.
Save mbusigin/461aec45f2da40459c90 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
plotOilOERInflationModel.R
function()
{
if ( exists("CPIAUCSL") == FALSE ) { fred("CPIAUCSL", environment()) }
if ( exists("MCOILWTICO") == FALSE ) { fred("MCOILWTICO", environment()) }
if ( exists("CUSR0000SEHC") == FALSE ) { fred("CUSR0000SEHC", environment()) }
recplot( (MCOILWTICO/CPIAUCSL)*-1.5736 + Delt(CUSR0000SEHC, k=12*5)* 6.5426 + 1.5954 )
lines( cagr(dlag(CPIAUCSL, k=12*5), 5), col="dodgerblue3" )
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment