#Anscombe Daten laden
data(anscombe)
summary(anscombe)
ans<-anscombe
plot(ans$x1,ans$y1)
m1<-lm(ans$y1~ans$x1)
m1
summary(m1)
str(m1)
abline(coef=m1$coefficients)

m2<-lm(ans$y2~ans$x2)
summary(m2)
JavaGD()
par(mfrow=c(2,2))
plot(m1)
JavaGD()
par(mfrow=c(2,2))
plot(m2)

#Zehnkampf
zk <- read.table("...Zehnkampf2006.txt",header=T,sep="\t",quote="")
dim(zk)
names(zk)

mz1<-lm(zk$Pjt~zk$Psp+zk$P100m+zk$Phj+zk$Plj+zk$Pdt)
summary(mz1)
mz2<-lm(zk$Pjt~zk$Psp+zk$Pdt)
summary(mz2)
JavaGD()
par(mfrow=c(2,2))
plot(mz2)

#Histogram der Residuen
hist(mz2$residuals)

#Und eine quadrierte Variable
z<-zk$Pdt^2
mz21<-lm(zk$Pjt~zk$Psp+zk$Pdt+z)
summary(mz21)