##Definition der Würfelfunktion für fairen Würfel #Bemerkung: Funktion gibt zusätzlich zu der in der Übung definierten Funktion auch den Anteil der 6en aus "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