t <- seq(0, 30, by = 0.1)
par(mar = c(4, 4, 2, 1))
plot(t, 1 - pexp(t, rate), type = "l", lwd = 2, ylim = c(0, 1),
xlab = "Jahre", ylab = "Anteil noch intakt")
lines(t, 1 - pweibull(t, shape = k, scale = skala), lwd = 2, lty = 2)
legend("topright", legend = c("Exponential", "Weibull"),
lwd = 2, lty = c(1, 2), bty = "n")
# Wahrscheinlichkeit fuer weitere drei Jahre, je nach bisherigem Alter
for (alter in c(0, 5, 10, 20)) {
p_exp <- (1 - pexp(alter + 3, rate)) / (1 - pexp(alter, rate))
p_wei <- (1 - pweibull(alter + 3, k, skala)) /
(1 - pweibull(alter, k, skala))
cat(sprintf("nach %2d Jahren | Exponential %.4f | Weibull %.4f\n",
alter, p_exp, p_wei))
}