关于程序优化

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位好，小弟学习R不久，且之前没有编程的背景，最近甚感写的程序过于冗杂，想进行优化。
例如如下一句代码，请问怎样可以表达的更清晰：

1. cnop_pl_u <- pl_u_diff[,,1,]+pl_u_diff[,,2,]+pl_u_diff[,,3,]+pl_u_diff[,,4,]+pl_u_diff[,,5,]

复制代码

在不用for循环的前提下如何修改？
感谢回复，感谢提出建议！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：程序优化 各位好

我也是初学，试试sum(pl_u_diff[,,1:5,]) ？

Strive、 发表于 2018-2-1 16:44
我也是初学，试试sum(pl_u_diff[,,1:5,]) ？

sum的话得到的就不是矩阵，是一个数了

apply(pl_u_diff[, , 1:5, ], 3, sum)
不过，只是简化，算不上优化

看起来像是解微分方程？

cheetahfly 发表于 2018-2-1 22:58
apply(pl_u_diff[, , 1:5, ], 3, sum)
不过，只是简化，算不上优化

谢谢，我来试试

tmdxyz 发表于 2018-2-2 06:43
看起来像是解微分方程？

是的，后面还要进一步求解，现在还是在整理数据

cheetahfly 发表于 2018-2-1 22:58
apply(pl_u_diff[, , 1:5, ], 3, sum)
不过，只是简化，算不上优化

不对哦，小哥

大意了，大意了。
应该是：
Reduce(`+`, lapply(1:5, function(x) pl_u_diff[, , x, ]))

cheetahfly 发表于 2018-2-2 15:00
大意了，大意了。
应该是：
Reduce(`+`, lapply(1:5, function(x) pl_u_diff[, , x, ]))

impressive, 谢谢，我试过了可以的，又学习到REDUCE这个函数，多谢