# NOT RUN {
require("engsoccerdata")
#get german Bundesliga teams from 1986
germany_1986 <- unique(engsoccerdata::germany[engsoccerdata::germany$Season==1986,"home"])
#replicable schedule
roundrobin(teamvector=germany_1986,second_round=TRUE,match_free=TRUE,randomize=TRUE,seed=1234)
#non replicable schedule
roundrobin(teamvector=germany_1986,second_round=TRUE,match_free=TRUE,randomize=TRUE)
# }
Run the code above in your browser using DataLab