#Lösung des vierten Übungsblattes
#Autoren: Bernd Klaus und Verena Zuber
#10. November 2009
########################################################################

########################################################################
########################################################################



########################################################################
#Aufgabe 1
########################################################################


treff <- function(rep){

x <- rep(NA,rep)
for(i in 1:rep){	
x[i] <- rbinom(n=1, size = 1, prob = 0.35)
}
return(x)
}