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