x <- letters[1:20]
m <- 3
combn(x,m)
combnPrim(x,m)
combn(m,m)
combnPrim(m,m)
combn(x,m, simplify=FALSE)
combnPrim(x,m, simplify=FALSE)
system.time({ for (ii in 1:100) { combnPrim(x,m) }})
system.time({ for (ii in 1:100) { combn(x,m) }})
system.time({ for (ii in 1:100) { combnPrim(x,m, simplify=FALSE) }})
system.time({ for (ii in 1:100) { combn(x,m, simplify=FALSE) }})
Run the code above in your browser using DataLab