R/setDiff.R

In sglasso: Lasso Method for RCON(V,E) Models

setDiff <- function(new, old){
	if (setequal(new, old)){
		D <- ""
	} else {
		new_old <- union(new, old)
		plus <- setdiff(new_old, old)
		if(length(plus) != 0) plus <- paste("  + ", paste(plus, collapse = " + "), sep = "")
		minus <- setdiff(new_old, new)
		if(length(minus) != 0) minus <- paste("  - ", paste(minus, collapse = " - "), sep = "")
		D <- paste(plus, minus, sep = "")
	}
	D
}