# Wirtschaftsstatistik Blatt 3

# Aufgabe 3

rm(list=ls(all=T))

# Daten einlesen
data <- scan("C://punkte.txt")

# Histogramm zeichnen
h <- hist(data, breaks = c(0, 20, 25, 30, 35, 40))

# absolute Häufigkeiten
h$counts

# relative Häufigkeiten
h$counts/length(data)

# empirische Verteilungsfunktion
plot(ecdf(data))