R/suball.R

In jeroenooms/lmergm: Mixed effects ergm models

# 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
}