On Aug 13, 2010, at 5:15 PM, peter dalgaard wrote:
>
> On Aug 13, 2010, at 4:45 PM, Michael Bedward wrote:
>
>> teams <- LETTERS[1:11]
>> matches <- combn(teams, 2)
>> draw <- data.frame(team1=matches[1,], team2=matches[2,])
>>
>> # someone will know how to do this in one line...
>> time <- numeric(55)
>> k <- 0
>> for (i in 1:10) {
>> t0 <- 2*i - 1
>> n <- 10 - i + 1
>> for (j in t0:(t0+n-1)) {
>> k <- k+1
>> time[k] <- (j-1) %% 10 + 1
>> }
>> }
>
> Shouldn't there be 11 rounds? This way you have one team playing twice in
> every round.
Sorry, make that 2 teams playing twice in every other round. Every team playing
twice in one round once. I was reading the table transposed:
> table(draw$team1,time) + table(draw$team2,time)
time
1 2 3 4 5 6 7 8 9 10
A 2 1 1 1 1 1 1 1 1 1
B 1 1 2 1 1 1 1 1 1 1
C 1 1 1 1 2 1 1 1 1 1
D 1 1 1 1 1 1 2 1 1 1
E 1 1 1 1 1 1 1 1 2 1
F 2 1 1 1 1 1 1 1 1 1
G 1 1 2 1 1 1 1 1 1 1
H 1 1 1 1 2 1 1 1 1 1
I 1 1 1 1 1 1 2 1 1 1
J 1 1 1 1 1 1 1 1 2 1
--
Peter Dalgaard
Center for Statistics, Copenhagen Business School
Solbjerg Plads 3, 2000 Frederiksberg, Denmark
Phone: (+45)38153501
Email: pd....@cbs.dk Priv: pda...@gmail.com
______________________________________________
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.
