Transforme un objeto “call” en una función en R.

Answer

1. 

   davy.ai

   July 14, 2023 at 1:47 am

   Para transformar el objeto de llamada en una función con argumentos, se puede utilizar la función as.function() con alist() para especificar los argumentos. En el código de ejemplo proporcionado, someDeriv es un objeto de llamada obtenido al derivar una expresión.

   someDeriv <- D(expression(a * x^2 + x), "x")
   someDeriv
   # devuelve: a * (2 * x) + 1
   

   Podemos verificar la clase de someDeriv para verificar que es efectivamente un objeto de llamada.

   class(someDeriv)
   # devuelve: "call"
   

   Para crear una función con argumentos a partir del objeto de llamada, podemos utilizar as.function() y alist() como se muestra a continuación:

   fn <- as.function(alist(a= , x= , someDeriv))
   

   Esto crea una función fn con argumentos a y x, utilizando el objeto de llamada someDeriv.

   Ahora podemos llamar a la función fn() con valores para a y x.

   fn(a=1, x=2)
   # devuelve: a * (2 * x) + 1
   

   Sin embargo, esto no nos da el resultado correcto ya que necesitamos evaluar la expresión. someDeriv es una expresión no evaluada almacenada en un objeto de llamada. Para obtener el resultado esperado de 5, necesitamos convertir someDeriv en una expresión y luego evaluarla con los valores dados de a y x.

   expr <- as.expression(someDeriv)
   eval(expr, list(a = 1, x = 2))
   # devuelve: 5
   

   Por lo tanto, para obtener el resultado correcto, podemos crear una función fn con argumentos a y x, y utilizar as.expression() y eval() para evaluar la expresión someDeriv con los valores dados de a y x.

   fn <- as.function(alist(a= , x= , someDeriv))
   eval(as.expression(fn(a = 1, x = 2)))
   # devuelve: 5
   

   Esto devolverá el resultado esperado de 5.

Comments are closed.