# Berechnung des Konfidenzintervalls # Beispiel zu sigma^2 fest, mu zu schaetzen # Beispiel 2.30 aus dem Skript alpha <- 0.01 # daten werte <- c(184.2,182.6,185.3,184.5,186.2,183.9,185.0,187.1,184.4) sigma <- 2.4 n <- length(werte) # konfidenzintervall zquantil <- qnorm(1-alpha/2) xquer <- mean(werte) theta.u <- xquer - (sigma*zquantil)/sqrt(n) theta.o <- xquer + (sigma*zquantil)/sqrt(n) theta.u; theta.o intervalllaenge <- theta.o - theta.u intervalllaenge # länge der stichprobe für eine bestimmte höchstlänge des intervalls wunschintervalllaenge <- 3 n.mind <- ((2*sigma*zquantil)/wunschintervalllaenge)^2 n.mind