Re: [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" <hwborch...@googlemail.com>
To: <r-h...@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@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.


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