Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
Real yields even out to 10 years have now been competely squeezed. Either bond investors need to accept even worse negative real yields or deflation needs to get ugly for additional price returns from here. If deflation is the outcome, then shorts in stocks and commodities will be much more rewarding than long bonds.
From TimelyPortfolio |
R code:
require(quantmod)
getSymbols(“DGS10″,src=”FRED”)
getSymbols(“DFII10″,src=”FRED”)
barplot(rbind(merge(DGS10[“2010-12-31”,]-DFII10[“2010-12-31”,],DFII10[“2010-12-31”,]),
merge(DGS10[NROW(DGS10),]-DFII10[NROW(DFII10),],DFII10[NROW(DFII10),])),
col=c(“steelblue3″,”firebrick3”),
main=”US 10 Year Yield Components
YTD 2011 Change”,
ylim=c(0,4))
text(y=c(coredata(DGS10[“2010-12-31”,])-.3,coredata(DFII10[“2010-12-31”,]),
coredata(DGS10[NROW(DGS10),])-.02,coredata(DFII10[“2010-12-31”,])),
x=c(0.7,0.7,1.9,1.9),
c(paste(“real”,sprintf(“%.2f”,coredata(DFII10[“2010-12-31″,])),sep=” “),
paste(“inflation”,sprintf(“%.2f”,coredata(DGS10[“2010-12-31”,]-DFII10[“2010-12-31″,])),sep=” “),
paste(“real”,sprintf(“%.2f”,coredata(DFII10[NROW(DFII10),])),sep=” “),
paste(“inflation”,sprintf(“%.2f”,coredata(DGS10[NROW(DGS10),]-DFII10[NROW(DFII10),])),sep=” “)),
cex=0.8)
R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.