# Auswirkungen von Lineartransformationen auf 
# Mittelwert und Varianz


weight = c(86.7, 90, 75.4, 80.2, 81, 77, 89) # STRG ENTER
mean(weight)   # 82.75714 Durchschnittsgewicht
var(weight)    # 33.97952 Varianz.

# neue Spalte: Gewicht in dag (1 kg hat 100 dag).
# Lineartransformation, alles mal 100.

weight2 = 100 * weight
weight2

mean(weight2) # 8275.714, wie erwartet, das 100-fache!
var(weight2)  # 339795.2, also das 10000-fache!


boxplot(weight)
help(boxplot) # Hilfe aufrufen
boxplot(weight, horizontal=TRUE, col="yellow", main="Mein erstes Boxplot")


fivenum(weight) # Kennzahlen nach John Tukey (was man im Boxplot sieht...)