sigma <- function(unten=1, oben=6)
{
# Funktion um die Bevoelkerungs-Standardabweichung
# von Ganzzahlen unten...oben zu berechnen
x = unten:oben
n = length(x)
m = mean(x)
sqrt((sum(x^2)/n - m^2))
}


proben <- function(unten=1, oben = 6, k = 10, N = 50)
{
# default: wir werfen 10 Wuerfel 50 Mal
alle = NULL
for(j in 1:N){
ergebnis = mean(round(runif(k, unten-0.5, oben+.5)))
alle = c(alle, ergebnis)
}
alle
}

swerte <- c(6,  5,  6,  9,  6,  5,  6,  8,  5,  6, 10,  9)