promesa que ya se está evaluando: ¿argumento recurrente recursivo de referencia o problemas anteriores?

Question

Aquí está mi código R Las funciones se definen como:

f <- function(x, T) {
10 * sin(0.3 * x) * sin(1.3 * x ^ 2) + 0.001 * x ^ 3 + 0.2 * x + 80
}
g <- function(x, T, f=f) {
exp(-f(x) / T)
}
test <- function(g=g, T=1) {
g(1, T)
}

El error de ejecución es:

> prueba ()
Error en la prueba ():
promesa que ya se está evaluando: ¿argumento recurrente recursivo de referencia o problemas anteriores?

Si sustituyo la definición de f por la de g , entonces el error desaparece.

Me preguntaba cuál fue el error. ¿Cómo corregirlo si no sustituye la definición de f en la de g ? ¡Gracias!

Actualizar:

¡Gracias! Dos preguntas:

(1) si la test función toma un argumento para f , ¿agregará algo como test <- function(g.=g, T=1, f..=f){ g.(1,T, f.=f..) } ? En casos con más recurrencias, ¿es una buena y segura práctica agregar más ? ?

(2) si f es un argumento sin función, por ejemplo g <- function(x, T, f=f){ exp(-f*x/T) } y test <- function(g.=g, T=1, f=f){ g.(1,T, f=f.) } , ¿Usará el mismo nombre tanto para los argumentos no funcionales formales como para los reales una práctica buena y segura o puede causar algún problema potencial?

Answer 1

El mismo problema, el nombre del valor predeterminado, en una función más simple:

f1=function(df1,tr=tr){
print(tail(tr))
}
df1=data.frame()
f1(df1)
Error in tail(tr) :
promise already under evaluation: recursive default argument reference or earlier problems?

Una solución es simplemente asignar tr explícitamente:

 f1(df1,tr)
nu_pregao cd_papel true_range pc_true_range mdTr13 sdTr13 mdTr21 sdTr21
70315 1781 AGRO3 0.25 0.019 0.01492308 0.005880215 0.01628571 0.006709269
70316 1781 AELP3 0.47 0.157 0.04223077 0.041219239 0.06061905 0.055112137
70317 1781 ADHM3 0.05 0.026 0.03469231 0.014912996 0.02976190 0.014542712
70318 1781 ABEV3 0.52 0.022 0.02176923 0.006610016 0.02204762 0.008639885
70319 1781 ABCB4 0.69 0.037 0.02838462 0.010444604 0.02585714 0.009456668
70320 1781 AALR3 0.71 0.042 0.02700000 0.010885771 0.02466667 0.010184956

Otra solución es simplemente cambiar el nombre del parámetro:

f2=function(df1,tr1=tr){
print(tail(tr1))
}
f2(df1)
nu_pregao cd_papel true_range pc_true_range mdTr13 sdTr13 mdTr21 sdTr21
70315 1781 AGRO3 0.25 0.019 0.01492308 0.005880215 0.01628571 0.006709269
70316 1781 AELP3 0.47 0.157 0.04223077 0.041219239 0.06061905 0.055112137
70317 1781 ADHM3 0.05 0.026 0.03469231 0.014912996 0.02976190 0.014542712
70318 1781 ABEV3 0.52 0.022 0.02176923 0.006610016 0.02204762 0.008639885
70319 1781 ABCB4 0.69 0.037 0.02838462 0.010444604 0.02585714 0.009456668
70320 1781 AALR3 0.71 0.042 0.02700000 0.010885771 0.02466667 0.010184956

¿Por qué R no permite el mismo nombre para el valor predeterminado?

Answer 2

Los argumentos formales de la forma x=x causan esto. Al eliminar las dos instancias en las que ocurren, obtenemos:

f <- function(x, T) {
10 * sin(0.3 * x) * sin(1.3 * x^2) + 0.001 * x^3 + 0.2 * x + 80
}
g <- function(x, T, f. = f) { ## 1. note f.
exp(-f.(x)/T)
}
test<- function(g. = g, T = 1) { ## 2. note g.
g.(1,T)
}
test()
## [1] 8.560335e-37