term.txt -- cut here -- CUT HERE -- Cut Here -- coupe ici -- Monthly data by observation -- 1959.01 to 1986.12 25 Series: date, one-month inflation rate, two-month inflation rate, ..., twelve-month inflation rate, one-month T-bill rate, two-month T-bill rate, ..., twelve-month T-bill rate. (i.e. first 25 values in that order art the values for 1959.10.) Timing conventions and explanations of the data in the above file is found in F. S. Mishkin, "What Does the Term Structure Tell Us About Future Inflation?" -- cut here -- CUT HERE -- Cut Here -- coupe ici -- term.s -- cut here -- CUT HERE -- Cut Here -- coupe ici -- j<-scan("term.dat",list(0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0), multi.line=T) term<-cbind(j[[1]],j[[2]],j[[3]],j[[4]],j[[5]],j[[6]],j[[7]],j[[8]],j[[9]],j[[10]], j[[11]],j[[12]],j[[13]],j[[14]],j[[15]],j[[16]],j[[17]],j[[18]],j[[19]], j[[20]],j[[21]],j[[22]],j[[23]],j[[24]],j[[25]],) term[,1]<-trunc(term[,1])+(term[,1]-trunc(term[,1]))/0.12 -- cut here -- CUT HERE -- Cut Here -- coupe ici -- term-p01.s -- cut here -- CUT HERE -- Cut Here -- coupe ici -- par(mfrow=c(2,1)) plot(term[,1],term[,2],type="l",ylab="",xlab="One-month Inflation Rate") plot(term[,1],term[,14],type="l",ylab="",xlab="One-month T-bill Rate") -- cut here -- CUT HERE -- Cut Here -- coupe ici -- term-p02.s -- cut here -- CUT HERE -- Cut Here -- coupe ici -- par(mfrow=c(2,1)) plot(term[,1],term[,3],type="l",ylab="",xlab="Two-month Inflation Rate") plot(term[,1],term[,15],type="l",ylab="",xlab="Two-month T-bill Rate") -- cut here -- CUT HERE -- Cut Here -- coupe ici -- term-p03.s -- cut here -- CUT HERE -- Cut Here -- coupe ici -- par(mfrow=c(2,1)) plot(term[,1],term[,4],type="l",ylab="",xlab="Three-month Inflation Rate") plot(term[,1],term[,16],type="l",ylab="",xlab="Three-month T-bill Rate") -- cut here -- CUT HERE -- Cut Here -- coupe ici -- term-p04.s -- cut here -- CUT HERE -- Cut Here -- coupe ici -- par(mfrow=c(2,1)) plot(term[,1],term[,5],type="l",ylab="",xlab="Four-month Inflation Rate") plot(term[,1],term[,17],type="l",ylab="",xlab="Four-month T-bill Rate") -- cut here -- CUT HERE -- Cut Here -- coupe ici -- term-p05.s -- cut here -- CUT HERE -- Cut Here -- coupe ici -- par(mfrow=c(2,1)) plot(term[,1],term[,6],type="l",ylab="",xlab="Five-month Inflation Rate") plot(term[,1],term[,18],type="l",ylab="",xlab="Five-month T-bill Rate") -- cut here -- CUT HERE -- Cut Here -- coupe ici -- term-p06.s -- cut here -- CUT HERE -- Cut Here -- coupe ici -- par(mfrow=c(2,1)) plot(term[,1],term[,7],type="l",ylab="",xlab="Six-month Inflation Rate") plot(term[,1],term[,19],type="l",ylab="",xlab="Six-month T-bill Rate") -- cut here -- CUT HERE -- Cut Here -- coupe ici -- term-p07.s -- cut here -- CUT HERE -- Cut Here -- coupe ici -- par(mfrow=c(2,1)) plot(term[,1],term[,8],type="l",ylab="",xlab="Seven-month Inflation Rate") plot(term[,1],term[,20],type="l",ylab="",xlab="Seven-month T-bill Rate") -- cut here -- CUT HERE -- Cut Here -- coupe ici -- term-p08.s -- cut here -- CUT HERE -- Cut Here -- coupe ici -- par(mfrow=c(2,1)) plot(term[,1],term[,9],type="l",ylab="",xlab="Eight-month Inflation Rate") plot(term[,1],term[,21],type="l",ylab="",xlab="Eight-month T-bill Rate") -- cut here -- CUT HERE -- Cut Here -- coupe ici -- term-p09.s -- cut here -- CUT HERE -- Cut Here -- coupe ici -- par(mfrow=c(2,1)) plot(term[,1],term[,10],type="l",ylab="",xlab="Nine-month Inflation Rate") plot(term[,1],term[,22],type="l",ylab="",xlab="Nine-month T-bill Rate") -- cut here -- CUT HERE -- Cut Here -- coupe ici -- term-p10.s -- cut here -- CUT HERE -- Cut Here -- coupe ici -- par(mfrow=c(2,1)) plot(term[,1],term[,11],type="l",ylab="",xlab="Ten-month Inflation Rate") plot(term[,1],term[,23],type="l",ylab="",xlab="Ten-month T-bill Rate") -- cut here -- CUT HERE -- Cut Here -- coupe ici -- term-p11.s -- cut here -- CUT HERE -- Cut Here -- coupe ici -- par(mfrow=c(2,1)) plot(term[,1],term[,12],type="l",ylab="",xlab="Eleven-month Inflation Rate") plot(term[,1],term[,24],type="l",ylab="",xlab="Eleven-month T-bill Rate") -- cut here -- CUT HERE -- Cut Here -- coupe ici -- term-p12.s -- cut here -- CUT HERE -- Cut Here -- coupe ici -- par(mfrow=c(2,1)) plot(term[,1],term[,13],type="l",ylab="",xlab="Twelve-month Inflation Rate") plot(term[,1],term[,25],type="l",ylab="",xlab="Twelve-month T-bill Rate") -- cut here -- CUT HERE -- Cut Here -- coupe ici --