library(zoo)
inflation <- read.zoo("V:/Stastny/inflation.txt", header=TRUE, format="%d.%m.%Y")
usggbe05 <- inflation[,1]
usggbe30 <- inflation[,2]
spread <- usggbe30 - usggbe05

png(file="V:/stastny/inflation01.gif", width=500, height=500)
plot(usggbe05, col="red", lwd=1, ylim=c(-1,4), ylab="%", xlab="", main="US Breakeven Inflation Rates",)
lines(usggbe30, col="blue", lwd=1)
abline(h=0, lty=2)
dev.off()

png(file="V:/stastny/inflation02.gif", width=500, height=500)
plot(spread, col="dark green", lwd=2, ylab="%", xlab="", main="US Breakeven Inflation Spread",)
abline(h=0, lty=2)
dev.off()