## Aufgabe 2

## (a)
daten <- read.table("\\Dokumente und Einstellungen\\Administrator\\Desktop\\Wolfgang\\Öko\\Blatt 7\\bier.dat", header=TRUE)
bier <- ts(daten, start=1998, frequency=12)
plot(bier)

## (c)
t <- time(bier)
lm.bier <- lm(bier ~ 1+t+I(t^2)+sin(2*pi*t))
summary(lm.bier)

## (d)
res <- lm.bier$residuals
acf(res)

## Zusatz
attach(daten)
plot(Bier, type="l")
lines(lm(bier ~ 1+t+I(t^2)+sin(2*pi*t))$fit, col="red", lwd=2)