#
# Beispiele I.5 and I.6
#
data(mtcars)
help(mtcars)
#
# Mittelwert, Median und Modalwert von wt
#
mean(mtcars$wt)
median(mtcars$wt)
# mode in two steps
wttbl <- table(mtcars$wt)
wttbl[which.max(wttbl)]
#
# Stichprobenvarianz und -standardabweichung
#
var(mtcars$wt)
sd(mtcars$wt)