# Wirtschaftsstatistik Blatt 2

# Aufgabe 1

rm(list=ls(all=T))

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

# Stichprobenumfang
length(dauer)

# Minimum
min(dauer)

# Maximum
max(dauer)

# Spannweite
max(dauer)-min(dauer)

# Stichprobenmittel
mean(dauer)

# Median
median(dauer)

# Modus: Daten sortieren + abzählen
sort(dauer)
# => Modus = 5

# geometrisches Mittel
(prod(dauer))^(1/length(dauer))

# harmonisches Mittel
length(dauer)/sum(1/dauer)

# Verteilung ist symmetrisch, da Mittel ~= Median ~= Modus