# NOT RUN {
##
rxExpandGrid(letters, letters)
## Another fast method; See
## https://stackoverflow.com/questions/10405637/use-outer-instead-of-expand-grid
expand.grid.jc <- function(seq1, seq2) {
cbind(
Var1 = rep.int(seq1, length(seq2)),
Var2 = rep.int(seq2, rep.int(length(seq1), length(seq2)))
)
}
# }
# NOT RUN {
microbenchmark::microbenchmark(rxExpandGrid(letters, letters), expand.grid.jc(letters, letters))
# }
Run the code above in your browser using DataLab