##Einlesen der Daten cracks<-read.table("Crackcounts.dat") ##Auslesen der Risse zu den gewünschten Zeitpunkten cracks0<-cracks[,"T0"] cracks5<-cracks[,"T5"] cracks10<-cracks[,"T10"] cracks18<-cracks[,"T18"] ##Histogramme in einer Graphik par(mfrow=c(2,2)) hist(cracks0,breaks=seq(0,1400,100),main="Histogramm der Risse in T0") hist(cracks5,breaks=seq(0,1400,100),main="Histogramm der Risse in T5") hist(cracks10,breaks=seq(0,1400,100),main="Histogramm der Risse in T10") hist(cracks18,breaks=seq(0,1400,100),main="Histogramm der Risse in T18") ##Bestimmung des Medians med_all<-cbind(median(cracks0),median(cracks5),median(cracks10),median(cracks18)) ##Bestimmung des artihmetischen Mittels mean_all<-cbind(mean(cracks0),mean(cracks5),mean(cracks10),mean(cracks18)) ##Zusammenfassung der Werte in Matrix sol<-matrix(data=rbind(med_all,mean_all),ncol=4,dimnames=list(c("Median","Mean"),c("T0","T5","T10","T18"))) ##Ausgabe sol