पहले ही मूल्यांकन के तहत वादा: रिकर्सिव डिफ़ॉल्ट तर्क संदर्भ या पूर्व समस्याएं?

Question

यहां मेरा आर कोड है। कार्यों परिभाषित कर रहे हैं के रूप में:

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) 
} 

चल त्रुटि है:

> परीक्षण() की परीक्षा में
त्रुटि(): पहले से ही मूल्यांकन के तहत
वादा: पुनरावर्ती डिफ़ॉल्ट तर्क संदर्भ या इससे पहले की परेशानियाँ ?

यदि मैं f की g की परिभाषा को प्रतिस्थापित करता हूं, तो त्रुटि दूर हो जाती है।

मैं सोच रहा था कि त्रुटि क्या थी? की परिभाषा को 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.) }, एक अच्छा और सुरक्षित अभ्यास दोनों औपचारिक और वास्तविक गैर कार्यात्मक तर्क के लिए एक ही नाम का उपयोग करेंगे या यह कुछ संभावित परेशानी का कारण हो सकता?

Answer 1

फॉर्म x=x के औपचारिक तर्क इस कारण हैं। उन दो उदाहरणों को खत्म करना जहां वे होते हैं:

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