作者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/cn.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