# Check Konfidenz
konfidenz <- function(x,n) {round(x+sqrt(x*(100-x)/n)*1.96*c(-1,1),1)}