# beer Daten von
# http://134.76.173.220/beer.zip
beer <- read.csv2( " beer.csv " )
beer <- ts(beer[,1],start=1956,freq=12)
pdf("ts1.pdf",width=8,height=6)
par(mfrow=c(2,1))
par(mar=c(4,4,2,1))
plot(beer,ylab="Produzierte Biermenge",xlab="Zeit",ylim=c(0,max(beer)))
plot(log(beer),ylab="log(Produzierte Biermenge)",xlab="Zeit")
dev.off()