Lottozahlen mit R

Lottozahlen.r

#####################################################
##################    Project R    ##################
##################   Lottozahlen   ##################
##################    Copyright    ##################
################## Felix LIndemann ##################
#####################################################
#####################################################
#                                                   #
# Parameters:                                       #
#            n: Anzahl Lotto-Reihen                 #
#            g: Anzahl Ziffern im Intervall 32:49   #
#                                                   #
#####################################################
getLotto<-function(n=6,g=4){
  x<-NULL

	for(i in 1:n){
		if (g==-1){
			r<-sort(c(sample(1:49,6)))  
		}else{
			r<-sort(c(sample(1:31,6-g),sample(32:49,g))) 
		}		
		cat("Reihe ",i,": ", r,"\n")
		x<-c(x,r)
	}
	if(n>1){
		hist(x,breaks=((0:49)+0.5),col="grey", 
			main=paste("Häufigkeit der anzukreuzenden Zahlen bei ",
				n," auszufüllenden Reihen"),
			xlab="Lottozahlen",ylab="Häufigkeit")
		rug(x)
	}
}


getLotto(n=5)

# Reihe  1 :  1 29 33 41 42 48 
# Reihe  2 :  12 24 39 40 41 45 
# Reihe  3 :  12 21 33 38 39 48 
# Reihe  4 :  10 30 33 43 45 49 
# Reihe  5 :  3 23 33 35 36 49