expand.grid.alt <- function(seq1, seq2) {
cbind(Var1 = rep.int(seq1, length(seq2)),
Var2 = rep.int(seq2, rep.int(length(seq1),length(seq2))))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.