[R] Games

[Silvano]

Hi,

I want to thank all the suggestions sent, especially that of 
Hans.

Thanks,

--------------------------------------
Silvano Cesar da Costa
Departamento de Estatística
Universidade Estadual de Londrina
Fone: 3371-4346
--------------------------------------
----- Original Message ----- 
From: "Hans W Borchers" <hwborchers em googlemail.com>
To: <r-help em stat.math.ethz.ch>
Sent: Friday, August 13, 2010 12:29 PM
Subject: Re: [R] Games


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