TU Wien:Statistik und Wahrscheinlichkeitstheorie UE (Stadler)/Übungen SS12/Beispiel 19

(a) > data(a0138) > hist(a0138$Jahreseinkommen[a0138$Unternehmen == "Unternehmen1"], main = "Unternehmen 1", xlab = "Einkommen", ylab = "Anzahl")

(b) > hist(a0138$Jahreseinkommen[a0138$Unternehmen == "Unternehmen2"], main = "Unternehmen 2", xlab = "Einkommen", ylab = "Anzahl")

(c) > mean(a0138$Jahreseinkommen[a0138$Unternehmen == "Unternehmen1"]) [1] 382.7833 > mean(a0138$Jahreseinkommen[a0138$Unternehmen == "Unternehmen2"]) [1] 376.0333 (Arithmetische Mittelwerte)

> median(a0138$Jahreseinkommen[a0138$Unternehmen == "Unternehmen1"]) [1] 377.25 > median(a0138$Jahreseinkommen[a0138$Unternehmen == "Unternehmen2"]) [1] 290.1 (Median)

> var(a0138$Jahreseinkommen[a0138$Unternehmen == "Unternehmen1"]) [1] 1313.997 > var(a0138$Jahreseinkommen[a0138$Unternehmen == "Unternehmen2"]) [1] 110724.5 (Varianz)

> sd(a0138$Jahreseinkommen[a0138$Unternehmen == "Unternehmen1"]) [1] 36.24909 > sd(a0138$Jahreseinkommen[a0138$Unternehmen == "Unternehmen2"]) [1] 332.7529 (Standardabweichung)

(d) Nein. 382.7833 bzw. 376.0333