Silvano <silvano <at> uel.br> writes: > > Hi, > > I want to build the table of a football league with 11 > teams. All play together. So will 55 games. > Since there are an odd number of teams in each round a team > will not play.
The easy solution is moving around a table with one team pausing. ---- # Playing schedule for an odd number of teams n <- 5 noTeams <- 2*n+1 noGames <- n*noTeams teams <- paste("T", 1:noTeams, sep="") rounds <- numeric(noGames) team1 <- team2 <- character(noGames) for (i in 1:noTeams) { for (j in 1:n) { k <- n*(i-1)+j rounds[k] <- i team1[k] <- teams[j+1] team2[k] <- teams[noTeams-j+1] } teams <- c(teams[2:noTeams], teams[1]) } schedule <- data.frame(rounds=rounds, team1=team1, team2=team2) ---- Hans Werner > The games will be: > > games = urnsamples(1:11, x = > c('A','B','C','D','E','F','G','H','I','J','K'), size=2, > replace=F, > ordered=FALSE) > games > > As will be five games per round. How to build a table with > all the championship rounds, automatically? > I thought about something like: > > game1 = c( > sample(11,2) > sample(11,2) > sample(11,2) > sample(11,2) > sample(11,2) > ) > > but, isn't work very well. > > Some suggestion? > > -------------------------------------- > Silvano Cesar da Costa > Departamento de EstatÃstica > Universidade Estadual de Londrina > Fone: 3371-4346 > > ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.