anteil <- seq(0.005, 0.6, length.out = 300)
par(mar = c(4, 4, 2, 1))
plot(anteil * 100, ppv(0.8, 1 - alpha, anteil) * 100, type = "l", lwd = 2,
ylim = c(0, 100), xlab = "Anteil zutreffender Vermutungen in Prozent",
ylab = "davon zutreffend, in Prozent")
lines(anteil * 100, ppv(0.5, 1 - alpha, anteil) * 100, lwd = 2, lty = 2)
lines(anteil * 100, ppv(0.2, 1 - alpha, anteil) * 100, lwd = 2, lty = 3)
abline(h = 50, col = "grey60")
legend("bottomright", legend = c("Power 0.8", "Power 0.5", "Power 0.2"),
lwd = 2, lty = 1:3, bty = "n")