Skip to content

Instantly share code, notes, and snippets.

@mbusigin

mbusigin/demographic-35-44-employment.R

Last active August 29, 2015 13:57
Show Gist options
  • Save mbusigin/9699753 to your computer and use it in GitHub Desktop.
Save mbusigin/9699753 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
demographic-35-44-employment.R
library(quantmod)
getSymbols( c("LNU00000012", "LNS12000091"), src="FRED" )
plot(diff(LNU00000012, lag=12*5)*1.93+ 385.70445)
lines(lag(diff(LNS12000091, lag=12*5), k=-12*20), col="blue", lty=4)
points(last(na.omit(lag(diff(LNS12000091, lag=12*5), k=-12*20))), pch=16, col="blue")
legend("topright", c("5y Demographic projection of Growth of 35-44 employees", "5y Actual Growth of 35-44 employees"), col=c("black", "blue"), lty=c(1, 4), cex=.6)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment