mittelwerte <- function(erzeuger, n, saat) {
rowMeans(matrix(erzeuger(saat, B * n), nrow = B, byrow = TRUE))
}
gleich <- function(saat, anzahl) 25 + 50 * lehmer(saat, anzahl)
selten <- function(saat, anzahl) as.numeric(lehmer(saat, anzahl) < 0.05)
par(mfrow = c(1, 3), mar = c(4, 4, 3, 1))
hist(mittelwerte(gleich, 30, 2021), breaks = 40, col = "grey75",
border = "white", main = "gleichverteilt, n = 30", xlab = "Mittelwert")
hist(mittelwerte(exp_werte, 30, 4070), breaks = 40, col = "grey75",
border = "white", main = "exponential, n = 30", xlab = "Mittelwert")
hist(mittelwerte(selten, 30, 3060), breaks = 40, col = "grey75",
border = "white", main = "binär p = 0.05, n = 30", xlab = "Anteil")
par(mfrow = c(1, 1))
cat("gleichverteilt, n = 5 : Schiefe",
round(schiefe(mittelwerte(gleich, 5, 2021)), 4), "\n")