एक अधिक कुशल ifelse()

Question

जबकि आर के ifelse अविश्वसनीय रूप से आसान है, यह एक विशेष कमी है के लिए खोज रहे: कॉल ifelse(test, yes, no) में yes और no के सभी तत्वों मूल्यांकन किया जाता है, यहां तक ​​कि उन है कि दूर फेंक दिया जाएगा।

यह नहीं बल्कि बेकार है आप एक जटिल संख्यात्मक व्यायाम के बीच में यह उपयोग कर रहे हैं, एक समारोह है कि integrate, uniroot, optim या जो कुछ भी करने के लिए खिलाया जा जाएगा में कहते हैं। उदाहरण के लिए, एक

ifelse(test, f(x, y, z), g(a, b, c)) 

हो सकता है जहां f और g मनमाने ढंग से जटिल या धीमी गति से कार्य हैं, संभवतः अधिक नेस्टेड ifelse के शामिल हैं।

क्या किसी ने ifelse के लिए एक प्रतिस्थापन लिखा है जो केवल yes/no के तत्वों का मूल्यांकन करता है जो रखा जाएगा? असल में,

out <- test 
for(i in seq_along(out)) 
{ 
    if(test[i]) out[i] <- f(x[i], y[i], z[i]) 
    else out[i] <- g(a[i], b[i], c[i]) 
} 

की रेखाओं के साथ कुछ लेकिन स्पष्ट लूप की अड़चन/अक्षमता के बिना कुछ। आर के अंदरूनी भाग के बिना यह भी संभव है?

Answer 1

मुझे नहीं लगता कि समस्या ifelse है। f और g केवल आपकी अभिव्यक्ति में मूल्यांकन किया जा रहा है। मुझे लगता है कि आपकी समस्या यह है कि f और g वैक्टर के साथ धीमे हैं।

आप कॉल को f और g पर बदल सकते हैं ताकि वे केवल वेक्टर के उप-समूह पर मूल्यांकन कर सकें।

out <- numeric(length(test)) #or whatever the output type is 
out[test] <- f(x[test], y[test], z[test]) 
out[!test] <- g(x[!test], y[!test], z[!test]) 

आप इस समायोजित करने के लिए करता है, तो test के किसी भी तत्व NA हैं की आवश्यकता होगी।