#### Maximum-Likelihood Inferenz für babyboom-Datensatz ####

#### Aufgabe b) ####

# Datensatz einlesen
baby <- read.table("Daten/babyboom.dat", header = TRUE)

# Zwischenzeiten berechnen
x <- diff(c(0,baby$GebZeit))

# Histogramm der Daten (approx. exponentialverteilt)
hist(x, breaks = 20, main = "Zwischenzeiten")

# ML-Schätzer
lambdaML <- 1/mean(x)
lambdaML