###########
# Blatt 9 #
###########

#aufgabe 3

m1<-vector(length = 100)
m2<-vector(length = 100)
m3<-vector(length = 100)

for(i in 1:100){
x1<-rpois(100, 2)
x2<-rpois(1000, 2)
x3<-rpois(10000, 2)

m1[i]<-mean(x1)
m2[i]<-mean(x2)
m3[i]<-mean(x3)

}

par(mfrow = c(3,1))
hist(m1, col = "grey", xlim = c(1.5, 2.5))
hist(m2, col = "grey", xlim = c(1.5, 2.5))
hist(m3, col = "grey", xlim = c(1.5, 2.5))    