## Aufgabe 3

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

## (c)
t <- time(flug)
lm.flug <- lm(flug ~ 1+log(t-1989)+sin(2*pi*t-pi/2))
summary(lm.flug)

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

## Zusatz
attach(daten)
names(daten)
plot(Passagiere, type="l")
lines(lm(flug ~ 1+log(t)+sin(2*pi*t-pi/2))$fit, col="red", lwd=2)