epg = read.table(file.path(pfadu, "epg.txt"))
regp = lm(F2 ~ COG, data = epg)


# Normality prüfen
shapiro.test(resid(regp))


# Residuals beobachten
plot(resid(regp))
abline(h=0, lty=2)

# Autocorrelation?
acf(resid(regp))
plot(regp, 4)

# Ausreißer identifizieren
with(epg, plot(COG, F2, cex = 10*sqrt(cooks.distance(regp))))
with(epg, text(COG, F2, as.character(1:length(F2))))