R/setDiff.R

In dglars: Differential Geometric Least Angle Regression

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
}