效能諮詢(我想讓R 跑更快)
[問題敘述]:
在function中引function, 主要是為了好讀好修. 可是這樣就很慢.
請問有什麼方式加速嗎? 例如引用的方法?
[程式範例]:
fun0 = function(fun){
x=1:10
y=10:1
fun1 = function(x,y){z=xy}
fun2 = function(x,y){z=x*y}
if(fun == "plus") z = fun1(x,y) else{
if(fun == "product") z = fun2(x,y)
}
return(z)
}
system.time(for(i in 1:1e7) fun0("product"))
user system elapsed
12.70 0.00 12.72
#

推，同樣也有這問題

做 profile 看看吧

應該是每次都redefine fun1,fun2造成的overhead吧這種overhead在小量重複的時候不明顯，但是大量迴圈的時候這一點點差距就會顯得很大https://goo.gl/1pKq3h

我試過先定義function在全域變數, 結果一樣花1.7倍時間改了自己的code讓它比較好讀, 結果等到天荒地老.並不是redefine function的問題. 而是只要再引用就會這樣.

function call overheadhttps://goo.gl/EaU9G2

可以用compiler::cmpfun加速，我測試過後，就一樣快了Hmm... 我加大replication後發現compiler::cmpfun沒有比較快...

Wush我試過cmpfun了XDDD

不過你應該可以用function of function來避免redefinefunction

為什麼 function call 會讓 code 比較好讀？改 pure function 都不會比較好讀了...改一下 code style 並加上適當的註解比較合理myfun <- function(x, y, op) do.call(op, list(x, y))myfun(1, 2, `+`)myfun(1, 2, `*`)不曉得這樣的 code 有沒有比較清礎myfun <- function(x, y, op) op(x, y)不用 do.call

他那個應該只是舉例而已，fun1,fun2應該很長

我也只是舉例而已，概念上應該要寫這種 function 才有幫助，要把變數參數化，否則兩個很長的 function 怎麼會比較好讀