Backup – Übung Lagemaße | Statistik FernUni Hagen

Ü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) können die beiden Fenster per Drag-and-Drop auch untereinander angeordnet werden. 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\nHä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\nberechnet)\n")
        mean(x, trim=0.2)

        # Gegenprobe
        x <- c(1, 2, 3)
        mean(x)