生成大矩阵

n <- 10000 m <- 10000 documents <- matrix(rnorm(n * m), n, m)

分块处理

block_size <- 1000 num_blocks <- n %/% block_size remain_size <- n %% block_size

处理完整的块

rowSums <- numeric(num_blocks) for (i in 1:num_blocks) { row_start <- (i - 1) * block_size + 1 row_end <- i * block_size rowSums[i] <- sum(documents[row_start:row_end, ]) }

处理剩余行

if (remain_size > 0) { rowSums[num_blocks + 1] <- sum(documents[(n - remain_size + 1):n, ]) }

合并结果

rowSum <- sum(rowSums)

上一篇：Applyfunctionwithseveralinputparameterstovector

下一篇：apply函数的第一个参数类型有哪些限制？有哪些值得注意的地方？

热门资讯

透视黑科技！wpk辅助工具，w... 透视黑科技！wpk辅助工具，wpk辅助器是真的吗，技术分享（有挂教程）1、超多福利：超高返利，海量正...

透视数据！aapoker辅助功... 透视数据！aapoker辅助功能，来玩德州破解器，攻略方法（原来是有挂）准备好在aapoker辅助功...

透视新版！wepoker辅助工... 透视新版！wepoker辅助工具，aapoker辅助功能，安装程序教程（有挂技巧）；致您一封信；亲爱...

透视实锤！wepoker透视版... 1、透视实锤！wepoker透视版下载，菠萝辅助器免费版的特点，wpk教程（原来真的有挂）；详细教程...

透视有挂！aapoker辅助插... 透视有挂！aapoker辅助插件工具下载，wepoker辅助器是真的的吗，终于懂了（有挂总结）1、a...

透视代打！德普之星辅助功能如何... 透视代打！德普之星辅助功能如何打开，wepoker手机版透视脚本，实用技巧（固有真的是有挂）1、点击...

透视ai！wpk辅助器下载，德... 透视ai！wpk辅助器下载，德朴之星脚本，传递经验（有挂辅助挂）;德朴之星脚本辅助插件是一个在免局卡...

辅助透视！wepoker辅助器... 辅助透视！wepoker辅助器怎么用，pokerworld破解版下载，细节揭秘（素来是有挂），支持语...

透视模拟器！aapoker透视... 透视模拟器！aapoker透视脚本安装包，wpk脚本下载，盘点十款（有挂详情）1、让任何用户在无需a...

透视私人局！wpk辅助插件，p... 透视私人局！wpk辅助插件，pokemmo手机版脚本，微扑克教程（总是是有挂）；亲们利用一分钟了解精...

apply函数导致内存耗尽。