#
# Beispiel I.3
#
# Daten in Vektoren einlesen
PkteMaennl <- c(20, 22, 20, 23, 23, 30, 18, 5, 18, 26, 12, 35)
PkteWeibl  <- c(25, 14.5, 21, 26, 13.5, 23, 20, 10, 26, 16)
PkteGesamt <- cbind(PkteMaennl, PkteWeibl)

# Quartile
# minimales Quartile
quantile(PkteMaennl, typ=1)
quantile(PkteWeibl, typ=1)
quantile(PkteGesamt, typ=1)
# Mitte des Quartilintervalls
quantile(PkteMaennl, typ=2)
quantile(PkteWeibl, typ=2)
quantile(PkteGesamt, typ=2)

boxplot(list(PkteMaennl,PkteWeibl,PkteGesamt),
        names=c("12 männl. TN", "10 weibl. TN", "22 TN insges."))

# Alle Quantile in 10%-Schritten (Mitte des Quartilintervalls)
quantile(PkteMaennl, p=seq(0,1,by=0.1), typ=2)