Datei:Zinsstrukturkurve.png

Zinsstrukturkurven von 1973, 1990, 1991, 1995, 2000 und 2005; Zinssätze hypoth. Null-Kupon-Anleihen gem. Svensson, Min. der Renditenirrtümer.

selbst erstellt nach Daten der Zeitreihen-Datenbank der Bundesbank (Kapitalmarkt -> "Tägliche Zinsstruktur am Rentenmarkt - Schätzwerte" Link) mit GNU R.

Die Datei bbZinsen.txt sieht etwa so aus (Die Spaltenköpfe bezeichnen die entsprechenden Zeitreihen der Bundebank. Die Spalten sind durch Tabulatoren getrennt.):

Datum	WT3211	WT3213	WT3215	WT3217	WT3219	WT3221	WT3223	WT3225	WT3227	WT3229
31.01.1973	6,42	7,32	7,87	8,16	8,33	8,45	8,55	8,65	8,74	8,84
28.02.1990	8,76	8,86	8,92	8,95	8,96	8,95	8,93	8,89	8,84	8,78
30.12.1991	9,01	8,97	8,8	8,62	8,46	8,32	8,19	8,09	7,99	7,91
30.06.1995	4,81	5,28	5,74	6,14	6,48	6,74	6,95	7,12	7,25	7,35
03.01.2000	3,81	4,31	4,66	4,89	5,07	5,19	5,29	5,37	5,44	5,5
17.02.2005	2,24	2,48	2,7	2,89	3,06	3,2	3,33	3,44	3,54	3,62

Der R-Quelltext:

z=read.table(file="bbZinsen.txt",header=TRUE,sep="\t",dec=",",nrows=7,strip.white=TRUE)
d=as.Date(as.character(z$Datum),format="%d.%m.%Y")
r=as.matrix(z[1:length(d),2:11])
cs=rainbow(length(d))
plot(r[1,],type="l",xlab="Laufzeit in Jahren",ylab="Zinsatz (p.a.)",cex.lab=1.3,col=cs[1],ylim=c(min(r),max(r)),lwd=5,axes=FALSE,panel.first=grid())
axis(1, at=seq(from=1,to=10,by=1))
axis(2, at=seq(from=2,to=9,by=1), labels=paste(seq(from=2,to=9,by=1),"%"))
box()
for (i in 1:length(d)) {
  lines(r[i,],col=cs[i],lwd=5)
}
title(main="Zinsstrukturkurven der deutschen Bundesbank zu unterschiedlichen Zeitpunkten",cex.main=2)
legend(9.11,3.55,legend=format(d,"%d.%m.%y"),lwd=6,col=cs,bg="white",cex=1.2)

Henning.H, neu erstellt von Thomas Steiner