[R] Games

[Hans W Borchers]

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
> 
>