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.s...@imail.org 801.408.8111 > -----Original Message----- > From: r-help-boun...@r-project.org [mailto:r-help-boun...@r- > project.org] On Behalf Of Silvano > Sent: Friday, August 13, 2010 5:31 AM > To: r-help@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@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.
