作者Edster (Edster)
看板R_Language
標題[問題] 在function中引function比較慢, why?
時間Wed Apr 4 06:33:52 2018
效能諮詢(我想讓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
# -----------------------------------------
for(i in 1:10) gc()
fun0 = function(fun){
x=1:10
y=10:1
if(fun == "plus") z=xy else{
if(fun == "product") z=x*y
}
return(z)
}
system.time(for(i in 1:1e7) fun0("product"))
user system elapsed
7.69 0.00 7.73
[環境敘述]:
> sessionInfo()
R version 3.4.4 (2018-03-15)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)
Matrix products: default
locale:
[1] LC_COLLATE=Chinese (Traditional)_Taiwan.950 LC_CTYPE=Chinese
(Traditional)_Taiwan.950
[3] LC_MONETARY=Chinese (Traditional)_Taiwan.950 LC_NUMERIC=C
[5] LC_TIME=Chinese (Traditional)_Taiwan.950
attached base packages:
[1] stats graphics grDevices utils datasets methods base
loaded via a namespace (and not attached):
[1] compiler_3.4.4 tools_3.4.4 yaml_2.1.18
[關鍵字]:
選擇性，也許未來有用
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 213.47.170.138
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1522794834.A.96D.html
1F：推 locka: 推，同樣也有這問題 04/04 11:22
2F：→ obarisk: 做 profile 看看吧 04/04 12:11
3F：→ celestialgod: 應該是每次都redefine fun1,fun2造成的overhead吧 04/04 16:41
4F：→ celestialgod: 這種overhead在小量重複的時候不明顯，但是 04/04 16:42
5F：→ celestialgod: 大量迴圈的時候這一點點差距就會顯得很大 04/04 16:42
7F：→ Edster: 我試過先定義function在全域變數, 結果一樣花1.7倍時間 04/04 18:38
8F：→ Edster: 改了自己的code讓它比較好讀, 結果等到天荒地老. 04/04 18:40
9F：→ Edster: 並不是redefine function的問題. 而是只要再引用就會這樣. 04/04 18:41
10F：→ celestialgod: function call overhead 04/04 19:09
12F：→ Wush978: 可以用compiler::cmpfun加速，我測試過後，就一樣快了 04/04 21:57
13F：→ Wush978: Hmm... 我加大replication後發現compiler::cmpfun沒有比 04/04 22:00
14F：→ Wush978: 較快... 04/04 22:00
15F：→ celestialgod: Wush我試過cmpfun了XDDD 04/04 22:01
16F：→ Wush978: 不過你應該可以用function of function來避免redefine 04/04 22:02
17F：→ Wush978: function 04/04 22:02
18F：→ obarisk: 為什麼 function call 會讓 code 比較好讀？ 04/04 22:32
19F：→ obarisk: 改 pure function 都不會比較好讀了... 04/04 22:33
20F：→ obarisk: 改一下 code style 並加上適當的註解比較合理 04/04 22:33
21F：→ obarisk: myfun <- function(x, y, op) do.call(op, list(x, y)) 04/04 22:35
22F：→ obarisk: myfun(1, 2, `+`) 04/04 22:35
23F：→ obarisk: myfun(1, 2, `*`) 04/04 22:36
24F：→ obarisk: 不曉得這樣的 code 有沒有比較清礎 04/04 22:36
25F：→ obarisk: myfun <- function(x, y, op) op(x, y) 04/04 22:38
26F：→ obarisk: 不用 do.call 04/04 22:39
27F：→ celestialgod: 他那個應該只是舉例而已，fun1,fun2應該很長 04/04 23:04
28F：→ obarisk: 我也只是舉例而已，概念上應該要寫這種 function 才有幫 04/04 23:48
29F：→ obarisk: 助，要把變數參數化，否則兩個很長的 function 怎麼會比 04/04 23:48
30F：→ obarisk: 較好讀 04/04 23:48