एक बहुविकल्पीय फ़ंक्शन

Question

के साथ बाहरी() का उपयोग करना मान लीजिए कि आपके पास f<- function(x,y,z) { ... } फ़ंक्शन है। आप एक तर्क के निरंतर पारित होने के बारे में कैसे जाएंगे, लेकिन दूसरे को अलग-अलग करने दें? दूसरे शब्दों में, मैं कुछ इस तरह करना चाहते हैं:

output <- outer(x,y,f(x,y,z=2)) 

इस कोड का मूल्यांकन नहीं करता है, लेकिन वहाँ यह करने के लिए एक तरीका है?

Answer 1

outer(x, y, f, z=2) 

समारोह के बाद तर्क अतिरिक्त तर्क यह करने के लिए, ?outer में ... देख रहे हैं। यह वाक्यविन्यास आर में बहुत आम है, पूरे apply परिवार उदाहरण के लिए समान कार्य करता है।

अद्यतन:

मैं नहीं बता सकते कि तुम क्या अपने अनुवर्ती अप सवाल में पूरा करने के लिए चाहते हैं, लेकिन लगता है कि इस फार्म पर एक समाधान शायद आप क्या इस्तेमाल करना चाहिए है।

outer(sigma_int, theta_int, function(s,t) 
    dmvnorm(y, rep(0, n), y_mat(n, lambda, t, s))) 

यह sigma_int और theta_int में मूल्यों के प्रत्येक संयोजन के लिए एक विचरण मैट्रिक्स की गणना करता है, का उपयोग करता है मैट्रिक्स एक dennsity परिभाषित करने के लिए और बिंदु (रों) y में परिभाषित में यह मूल्यांकन करता है। मैं इसका परीक्षण करने में सक्षम नहीं हूं हालांकि मुझे शामिल चर के प्रकारों और आयामों को नहीं पता है।

Answer 2

outer (फ़ंक्शंस और अन्य लोगों के लागू परिवार के साथ) उन कार्यों के अतिरिक्त तर्क के साथ पास होंगे जो वे कहते हैं। हालांकि, अगर आप ऐसे मामले से निपट रहे हैं जहां यह समर्थित नहीं है (optim एक उदाहरण है), तो आप करी के अधिक सामान्य दृष्टिकोण का उपयोग कर सकते हैं। फ़ंक्शन को करी करने के लिए एक नया फ़ंक्शन बनाना है जिसमें कुछ (निश्चित) चर तय किए गए हैं और इसलिए कम पैरामीटर हैं।

library("functional") 
output <- outer(x,y,Curry(f,z=2))