### vorlesung 16.5.2017 ### Zur Replizierbarkeit der Ergebnisse wird ein Seed gesetzt ### Erklärung: ?set.seed set.seed(123) ### simulation # parameter der binomialverteilung p=0.5 n=25 # standardfehler sqrt(p*(1-p)/n) #-> werte sollte zwischen 0.3 und 0.7 liegen # stichprobenumfang: 1 rbinom(1,n,0.5)/n # stichprobenumfang: 1000 mean(rbinom(1000,n,0.5))/n # parameter n erh?hen n=2500 # standardfehler sqrt(p*(1-p)/n) #-> werte sollte zwischen 0.48 und 0.52 liegen # stichprobenumfang: 1 rbinom(1,n,0.5)/n # stichprobenumfang: 1000 mean(rbinom(1000,n,0.5))/n ### IQ n=100 se <- 15/sqrt(n) se #-> werte sollten zwischen 98 und 102 liegen x<-rnorm(n,m=100,sd=15) mean(x) ### konfidenzintervall mean(x)+2.58*se mean(x)-2.58*se