Lösungen
Aufgabe_1
IncomeNew <- CPS85$wage
set.seed(21430)
ID <- sample(1:534, 50)
IncomeNew[ID] <- IncomeNew[ID] + 180
# Kennwerte berechnen
MW_A1 <- mean(IncomeNew)
SD_A1 <- sd(IncomeNew)
MD_A1 <- median(IncomeNew)
RA_A1 <- range(IncomeNew)
MW_A1_Trimmed <- mean(IncomeNew, trim = .1)
# Daten anzeigen
# p5 <- hist(IncomeNew)
# p6 <- boxplot(IncomeNew)