getRow <- function(noflevels, row.no, zerobased = FALSE) {
if (!zerobased) {row.no <- row.no - 1}
mbase <- c(rev(cumprod(rev(noflevels))), 1)[-1]
t(sapply(row.no, function(x) x %/% mbase) %% noflevels)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.