#Stichprobe der Grš§e 1000 generieren
y<-rnorm(1000,0,1)

#Histogram von allen Daten
par(mfrow=c(1,1))
xxh<-hist(y,freq=FALSE,xlab="",ylab="",main="Histogram 1000 N(0,1)")

#DichteschŠtzer hinzufźgen
lines(density(y))

#Histogramme von Untergruppen der Grš§e 50 plotten
par(mfrow=c(3,3))
for (m in 1:9) {
v<-(m-1)*50+1
u<-m*50
#ylim war durch einen Defaultplot vorbestimmt
hist (y[v:u], br=xxh$breaks,freq=FALSE,xlab="", ylab="",ylim=c(0,0.65),main="")
lines(density(y[v:u]))}