##Einlesen der Daten
cracks<-read.table("Crackcounts.dat")

##Erstellen der Boxplots
boxplot(cracks[,1:15],main="Boxplots der Rissanzahlen",ylab="Anzahl der Risse",names=c("T0","T1","T2","T3","T4","T5"
,"T6","T7","T8","T9","T10","T12","T14","T16","T18"))

##Boxplots ohne Ausreißer
boxplot(cracks[,1:15],main="Boxplots der Rissanzahlen",ylab="Anzahl der Risse",names=c("T0","T1","T2","T3","T4","T5"
,"T6","T7","T8","T9","T10","T12","T14","T16","T18"),outline=F)