##Einlesen der Daten ##Einlesen der Daten stahl<-scan("STEEL.DAT") ##Trennen der Linien linie1<-stahl[1:10] linie2<-stahl[11:20] ##Berechnen der Kennzahlen #Gesamtdaten summary(stahl) #Linie 1 summary(linie1) #Linie 2 summary(linie2) ##Eleante Darstellung in Tabelle rbind(summary(stahl),summary(linie1),summary(linie2))