rr <- read.table(".../RoadRaceDaten",header=T,sep="\t", quote="");attach(rr)
#Testen ob die Durchschnittszeit fŸr die ersten 10km 45 Minuten betrŠgt
t.test(t1,mu=45)
#Derselbe Test, aber es soll ein 99% Konfidzenzintervall ausgegeben werden
t.test(t1,mu=45, conf.level=0.99)
#Sind die Durchschnittswerte fŸr die ersten und die letzten 10km gleich?
t.test(t1,t10)
#Da es sich um dieselben Personen handelt, soll ein gepaarter Test durchgefŸhrt werden
t.test(t1,t10,paired=TRUE)
#Sind die Durchschnittswerte fŸr die ersten und die zweiten 10km gleich?
t.test(t1,t2)
#Gepaarter Test
t.test(t1,t2,paired=TRUE)
#Unterschiede zwischen den Zeiten fŸr die ersten und die zweiten 10km
tdiff12<-t1-t2
#Plot davon
ihist(tdiff12)