rrace3() # moderate-sized default
## player numbers (two "a"s, four "b"s, two "c"s and a "d"):
pn <- c(a=2,b=4,c=2,d=1)
ps <- c(a=0.3, b=0.1,c=0.2,d=0.4) # player strengths
rwinner3(pn,ps) # winner, randomly chosen
rrace3(pn,ps) # A random race
ordervec2supp3(rrace3(pn,ps)) # a hyper3 object
rrace3() # a hyper3 object for multiple races
Run the code above in your browser using DataLab