"wuerfel" <-
function (N) 
{
# Simuliert N Wuerfelwuerfe und gibt die relative Häufigkeit der Sechs aus
u<-runif(N)
u[u<=1/6]<-6
u[1/6<u & u<=2/6]<-5
u[2/6<u & u<=3/6]<-4
u[3/6<u & u<=4/6]<-3
u[4/6<u & u<=5/6]<-2
u[5/6<u & u<=1]<-1
list(Wuerfelergebnisse=u,Anteil=sum(u==6)/N)
}