Manipulación de expresiones en R

Question

Estoy buscando una forma de crear una expresión que sea el producto de dos expresiones dadas. Por ejemplo, supongamos que tengo

e1 <- expression(a+b*x) 
e2 <- expression(c+d*x) 

Ahora quiero crear mediante programación la expresión (e1)*(e2):

expression((a+b*x)*(c+d*x)) 

Antecedentes Estoy escribiendo una función de ajuste del modelo. El modelo tiene dos piezas definidas por el usuario. Necesito poder "manejarlos" por separado, y luego crear una expresión combinada y "manejarla" como un modelo. "Manejo" implica tomar derivados numéricos, y la función deriv quiere expresiones como una entrada.

Answer 1

que no se ocupan de esto muy a menudo, pero algo como esto parece estar funcionando

e1 <- expression(a + b*x) 
e2 <- expression(c + d*x) 
substitute(expression(e1*e2), list(e1 = e1[[1]], e2 = e2[[1]])) 
# expression((a + b * x) * (c + d * x)) 

Answer 2

Prueba esto:

e1 <- quote(a+b*x) # or expression(*)[[1]] 
e2 <- quote(c+d*x) 
substitute(e1 * e2, list(e1=e1, e2=e2)) 

Answer 3

Es algo excesivo en su caso, pero el paquete Ryacas puede ser amable por realizar manipulaciones simbólicas más complicadas de este tipo:

library(Ryacas) 
yacas(expression(e1*e2))$text 
# expression((a + b * x) * (c + d * x)) 

A lso, en lugar de utilizar substitute(), se puede construir la misma expresión en la base de R como esto:

as.expression(as.call(list(as.symbol("*"), e1[[1]], e2[[1]]))) 
# expression((a + b * x) * (c + d * x)) 

Nota explicativa: Un aspecto confuso al principio de tratar con expression objetos es que son muy listas del lenguaje objetos, incluso cuando (como suele ser el caso) esas listas contienen solo un objeto. Por ejemplo, en su pregunta, tanto e1 como e2 son listas de longitud 1 que contienen un solo objeto call cada una.

Trabajando desde adentro hacia afuera, el código anterior:

1. Extractos los dos objetos usando call[[1]]
2. Usos as.call() que construye una nueva llamada que es el producto de los dos objetos call.
3. Finalmente, envuelve la copia de seguridad resultante call como el objeto expression que desea.