Find additive terms in an expression

Description

This function decomposes an expression into additive terms separated by "+" or "i" signs.

Usage

FindTerms(expr, remove_paren = 0)

Arguments

Details

The original expression can be recovered as:

res <- find_terms( expr )
expr <- paste( apply(res$tab,1, function(x){paste(x,collapse="")} )
, collapse="")

Value

a data frame with op and term columns.

Examples

FindTerms("a+b")
FindTerms("x*a/(1-y)")
FindTerms("-a+b-0")
FindTerms("(A%p%B)%*%C-D%*%diag(X) %m% E")
FindTerms(Simplify("-a+b-0"))

res <- FindTerms( "-((a)) - c + ((a)+(b)) + (a-b) + 1 - (x-y)*(((z+1)))" )
paste( apply(res,1, function(x){paste(x,collapse="")} ), collapse="")