#Vorlesung "Statistische Methoden" #================================= # #Kapitel 4.1 Grundlagen schließende Statistik #============================================ # #Simulation Erwartungstreue set.seed(10) dat<-matrix(rnorm(n=100,mean=10,sd=1),nrow=10) erg<-apply(dat,2,mean) erg mean(erg) # # #Simulation Effizienz set.seed(10) dat<-matrix(rnorm(n=1000,mean=10,sd=1),nrow=10) streu1<-apply(dat,2,sd) streu2<-apply(dat,2,mad) var(streu1) var(streu2) # # Simulation Konsistenz set.seed(10) dat<-rnorm(n=1000000,mean=10,sd=1) mean(dat) # # ###