====== R ======
====== Konfidenzintervall (%) ======

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