Backup – Übung Lagemaße

Überblick Lektion 1

Demo Mittelwert:
Arithmetisches Mittel für diese Datenreihe:

2,3 8,6 6,1 2,3 10,9

# no pec

x <- c(2.3, 8.6, 6.1, 2.3, 10.9) cat("Datenreihe:\n") x cat("Mittelwert:\n") mean(x)
Bedienungshinweis

Bei Nutzung per Computer (nicht per Handy) kann das Konsolenfenster per Drag-and-Drop unter das Skriptfenster gezogen werden, sodass die beiden Fenster untereinander und nicht nebeneinander sind. Das macht es übersichtlicher.

Demo Modalwert und getrimmtes Mittel:
# no pec

x <- c(1, 1, 2, 3, 50) x cat("\nModalwert:\n") cat("(es wird immer der Modalwert und die erste Position des Modalwertes in der Häufigkeitstabelle \"table(x)\" ausgegeben)\n") which.max(table(x)) cat("\n0,2-getrimmtes Mittel:\n") cat("(die Werte 1 und 50 werden abgeschnitten und der Mittelwert der verbleibenden Werte berechnet)\n") mean(x, trim=0.2) # Gegenprobe x <- c(1, 2, 3) mean(x)