R-Skript für die Berechnungen im Ergebniskapitel