##Einlesen der Daten cracks<-read.table("Crackcounts.dat") ##Zeitpunkte 5 und 10 #Streudiagramm plot(cracks$T5,cracks$T10,main="Zeitpunkte 5 und 10",xlab="Anzahl Risse zum Zeitpunkt 5", ylab="Anzahl Risse zum Zeitpunkt 10", cex=1.5, pch=19) #Bravais-Pearson Korrelationskoeffizient cor(cracks$T5,cracks$T10) #Spearmann Korrelationskoeffizient cor(rank(cracks$T5),rank(cracks$T10)) #Koeffizienten der Regressionsgeraden lsfit(cracks$T5,cracks$T10)$coef #zeichne Gerade in Grafik ein abline(lsfit(cracks$T5,cracks$T10)$coef,lwd=2,col="red") ##Zeitpunkte 10 und 18 #Streudiagramm plot(cracks$T10,cracks$T18,main="Zeitpunkte 10 und 18",xlab="Anzahl Risse zum Zeitpunkt 10", ylab="Anzahl Risse zum Zeitpunkt 18", cex=1.5, pch=19) #Bravais-Pearson Korrelationskoeffizient cor(cracks$T10,cracks$T18) #Spearmann Korrelationskoeffizient cor(rank(cracks$T10),rank(cracks$T18)) #Koeffizienten der Regressionsgeraden lsfit(cracks$T10,cracks$T18)$coef #zeichne Gerade in Grafik ein abline(lsfit(cracks$T10,cracks$T18)$coef,lwd=2,col="red")