daha verimli ifelse()

Question

R en ifelse inanılmaz kullanışlı olsa da, belirli bir eksiklik var Aranan: yes ve no tüm unsurları değerlendirilir çağrı ifelse(test, yes, no) yılında, hatta bu atılır olacağını.

Eğer karmaşık bir sayısal egzersiz ortasına kullanıyorsanız bu oldukça savurgan olan

, integrate, uniroot, optim ya da her neyse beslenen edilecektir bir işlevde söylüyorlar. f ve g belki daha iç içe ifelse 's içeren, keyfi olarak karmaşık veya yavaş fonksiyonları olmak üzere Örneğin, bir

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

olabilir.

ifelse için yedek yazılı olan herhangi biri, yalnızca yes/no öğelerini değerlendirecek olan bir yazı yazdı mı? Temel olarak,

hatları boyunca bir şey açık bir döngünün bulanıklığı/etkisizliği boyunca. Bu, R'nin içlerine girmeden bile mümkün mü?

Answer 1

Bu sorunun ifelse olduğunu sanmıyorum. f ve g yalnızca ifadenizde bir kez değerlendirilmektedir. Bence senin sorunun, f ve g'un vektörlerle yavaş olduğunu düşünüyorum.

Aramaları, yalnızca vektörün bir alt kümesinde değerlendirilmek üzere f ve g olarak değiştirebilirsiniz.

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

Sen test herhangi elemanları NA ise bu ayarlamak gerekir.