# TODO: Add comment
#
# Author: jeroen
###############################################################################
suball <- function (term)
{
if (is.name(term) || !is.language(term))
return(term)
if (length(term) == 2) {
term[[2]] <- suball(term[[2]])
return(term)
}
stopifnot(length(term) >= 3)
if (is.call(term) && (term[[1]] == as.name("|") || term[[1]] == as.name("*") || term[[1]] == as.name(":")))
term[[1]] <- as.name("+")
for (j in 2:length(term)) term[[j]] <- suball(term[[j]])
term
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.