#Konfidenz und Vorhersage Intervalle
RR <- read.table("/...RoadRaceDaten.txt",header=T,sep="\t",quote="")
attach(RR)
cor(t1,t2)
cor(RR)
m2<-lm(t2~t1)
new<-data.frame(t1=seq(20,70,1))
p2<-predict(m2,new,interval="prediction")
plot(t1,t2,pch=19)
lines(new$t1,p2[,2])
lines(new$t1,p2[,3])
c2<-predict(m2,new,interval="confidence")
lines(new$t1,c2[,3])
lines(new$t1,c2[,2])

m10<-lm(t10~t1)
p10<-predict(m10,new,interval="prediction")
plot(t1,t10,pch=19)
lines(new$t1,p10[,2])
lines(new$t1,p10[,3])
c10<-predict(m10,new,interval="confidence")
lines(new$t1,c10[,3])
lines(new$t1,c10[,2])