##Einlesen der Daten
stahl<-scan("STEEL.DAT")

##Trennen der Linien
linie1<-stahl[1:10]
linie2<-stahl[11:20]

##Histogramme
#Plotbereich für 2 Diagramme vorbereiten
par(mfrow=c(1,2))
#Histogramme erstellen
hist(linie1,breaks=seq(0.6,2,0.2),include.lowest=T)
hist(linie2,breaks=seq(0.6,2,0.2),include.lowest=T)

##Empirische Verteilungsfunktion
plot(ecdf(linie1))
plot(ecdf(linie2))

##Häufigkeitstabelle
#Daten aus Histogrammen speichern
hist1<-hist(linie1,breaks=seq(0.6,2,0.2),include.lowest=T,plot=F)
hist2<-hist(linie2,breaks=seq(0.6,2,0.2),include.lowest=T,plot=F)
#Absolute Häufigkeiten
hist1$counts->A1
hist2$counts->A2
#Relative Häufigkeiten
hist1$counts/length(linie1)->R1
hist2$counts/length(linie2)->R2
#Summenhäufigkeiten
cumsum(hist1$counts/length(linie1))->S1
cumsum(hist2$counts/length(linie2))->S2