pfad = "Das Verzeichnis, wo die Daten gespeichert sind"
ydata = read.table(paste(pfad, "ydata.txt", sep="/"),  header=T)
edat = read.table(paste(pfad, "epg.txt", sep="/"))


attach(ydata)
names(ydata)

pairs(ydata)
regm = lm(F2 ~ DORSX+DORSY+LIPX+LIPY)
coef(regm)
summary(regm)


n = length(F2)
1-(1-0.3939) * (  (n-1)/(n-4-1) )
stepAIC(regm)

summary(regm)
summary(lm(F2~LIPX+LIPY))


detach(ydata)
attach(edat)
plot(COG, F2)
regp = lm(F2 ~ COG + I(COG^2))
k = coef(regp)
plot(COG, F2)
curve(k[1] + k[2]*x + k[3]*x^2, add=T)
summary(regp)
stepAIC(regp)