这是我的R代码.这些功能被定义为:
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)
}
运行错误是:
> test()
Error in test() :
promise already under evaluation: recursive default argument reference or earlier problems?
如果我用g的定义替换f的定义，那么错误就消失了.
我想知道错误是什么？如果不将f的定义替换为g的定义，该如何更正？谢谢
更新:
谢谢两个问题:
(1) 如果函数test进一步接受f的参数，你会添加类似test <- function(g.=g, T=1, f..=f){ g.(1,T, f.=f..) }的内容吗？在有更多递归的情况下，添加更多递归是否是一种良好且安全的做法？
(2) 如果f是一个非函数参数，例如g <- function(x, T, f=f){ exp(-f*x/T) }和test <- function(g.=g, T=1, f=f){ g.(1,T, f=f.) }，那么在形式和实际的非函数参数中使用相同的名称是一种良好且安全的做法，还是可能会导致一些潜在的问题？