[R] Games

[Greg Snow]

How about:

tmp <- expand.grid(one = 1:11, two = 1:11)
tmp$week <-  ( ( tmp$one + tmp$two ) %% 11 ) + 1

# reformat for simplicity
tmp2 <- tmp[ order(tmp$week), ]
tmp3 <- tmp2[ tmp2$one < tmp2$two , ]

### do some checks to make sure everyone plays everyone 
###    exactly once and each team plays at most 1 game per week.

table(tmp3$week)
dim(tmp3)
with(tmp3, table(one,two))
with(tmp3, table(one,week))
with(tmp3, table(two,week))


reformatting to the desired structure is left to the user.


-- 
Gregory (Greg) L. Snow Ph.D.
Statistical Data Center
Intermountain Healthcare
greg.snow at imail.org
801.408.8111

> -----Original Message-----
> From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-
> project.org] On Behalf Of Silvano
> Sent: Friday, August 13, 2010 5:31 AM
> To: r-help at r-project.org
> Subject: [R] Games
> 
> 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 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 at 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.