##Einlesen der Daten stahl<-scan("STEEL.DAT") linie1<-stahl[1:10] linie2<-stahl[11:20] ##Erstellen der Box-Plots boxplot(list(linie1,linie2),ylab="Durchmesser",names=c("Linie1","Linie2"),main="Boxplots für die Durchmesserder beiden Produktionslinien") ##Streuungsmaße #Spannweite max(linie1)-min(linie1) max(linie2)-min(linie2) #Quartilsabstand quantile(linie1,p=0.75,type=2)-quantile(linie1,p=0.25,type=2)->Q1 quantile(linie2,p=0.75,type=2)-quantile(linie2,p=0.25,type=2)->Q2 #Median der absoluten Abweichung mad(linie1,constant=1) mad(linie2,constant=1) #Standardabweichung sd1<-sqrt(1/(length(linie1)-1)*sum((linie1-mean(linie1))^2)) sd2<-sqrt(1/(length(linie2)-1)*sum((linie2-mean(linie2))^2)) #Varianz 1/(length(linie1)-1)*sum((linie1-mean(linie1))^2) 1/(length(linie2)-1)*sum((linie2-mean(linie2))^2) #Quartilskoeffizient 2*Q1/(quantile(linie1,p=0.75,type=2)+quantile(linie1,p=0.25,type=2)) 2*Q2/(quantile(linie2,p=0.75,type=2)+quantile(linie2,p=0.25,type=2)) #Variationskoeffizient sd1/mean(linie1) sd2/mean(linie2)