base3rows <- function(nofexo.facs) {
multiplier <- 0
gap <- NULL
for (i in 2:nofexo.facs) {
multiplier <- 3*multiplier + 1
gap <- c(gap, multiplier, gap)
}
linejump <- (3^nofexo.facs + 1)/2
rownums <- c(linejump, sapply(gap, function(jump) {
linejump <<- linejump + jump + 2
}))
return(sort(c(rownums, rownums + 1)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.