# beer Daten von
# http://134.76.173.220/beer.zip
beer <- read.csv2( " beer.csv " )
beer <- ts(beer[,1],start=1956,freq=12)
# Zerlegung in Komponenten:
pdf("ts3.pdf",width=8,height=8)
par(mar=c(4,4,2,1))
plot(stl(log(beer),s.window="periodic"))
dev.off()