[R] Games

[Silvano]

Hi,

the solution presented below works, but requires some manual 
work to get the details right.
It is still difficult.

require(prob)
games = urnsamples(1:11, x = 
c('A','B','C','D','E','F','G','H','I','J','K'), size=2, 
replace=F,
ordered=FALSE)
games

(round1 = sample(55,5))
(round2 = sample(55,5))
(round3 = sample(55,5))
(round4 = sample(55,5))
(round5 = sample(55,5))
(round6 = sample(55,5))
(round7 = sample(55,5))
(round8 = sample(55,5))
(round9 = sample(55,5))
(round10 = sample(55,5))
(round11 = sample(55,5))

(round = rbind(
round1,
round2,
round3,
round4,
round5,
round6,
round7,
round8,
round9,
round10,
round11
))

--------------------------------------
Silvano Cesar da Costa
Departamento de Estatística
Universidade Estadual de Londrina
Fone: 3371-4346
--------------------------------------
----- Original Message ----- 
From: "peter dalgaard" <pdalgd em gmail.com>
To: "Michael Bedward" <michael.bedward em gmail.com>
Cc: "Silvano" <silvano em uel.br>; <r-help em r-project.org>
Sent: Friday, August 13, 2010 10:29 AM
Subject: Re: [R] Games



On Aug 13, 2010, at 3:10 PM, Michael Bedward wrote:

> Nice question Silvano !
>
> teams <- LETTERS[1:11]
> matches <- combn(teams, 2)
> draw <- data.frame(team1=matches[1,], team2=matches[2,],
> round=sequence(10:1) + rep(0:9, times=10:1))
>
> Is there a prize :-)

Maybe you want to sponsor one, because your solution 
certainly doesn't work!

I see 10 games in the 10th round, all involving team K..... 
That's not how to arrange a tournament!


-- 
Peter Dalgaard
Center for Statistics, Copenhagen Business School
Solbjerg Plads 3, 2000 Frederiksberg, Denmark
Phone: (+45)38153501
Email: pd.mes em cbs.dk  Priv: PDalgd em gmail.com