生成大矩阵

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函数的第一个参数类型有哪些限制？有哪些值得注意的地方？

热门资讯

记者揭秘！欢乐贰柒拾辅助，青鸟... 记者揭秘！欢乐贰柒拾辅助，青鸟辅助平台，详细app（有挂方略）一、欢乐贰柒拾辅助游戏安装教程牌型概率...

一分钟了解！微乐小程序辅助器免... 一分钟了解！微乐小程序辅助器免费，陕西三代攻略，详细技巧（有挂辅助）1、用户打开应用后不用登录就可以...

实测分享！吉祥填大坑小程序辅助... 实测分享！吉祥填大坑小程序辅助，超级三加一辅助软件，详细挂（有挂实锤）小薇（辅助器软件下载）致您一封...

免费测试版！老友跑得快辅助小说... 免费测试版！老友跑得快辅助小说最新章节，广西老友玩有破解码，详细教程（有挂教学）运老友跑得快辅助小说...

专业讨论！边锋老友杰克辅助，甘... 专业讨论！边锋老友杰克辅助，甘肃胡乐白银辅助，详细插件（有挂方略）甘肃胡乐白银辅助是不是有人用挂微扑...

科技揭秘！hhpoker作笔实... 科技揭秘！hhpoker作笔实战视频，赣牌圈破解器，详细工具（真实有挂）1、完成hhpoker作笔实...

避坑细节！四川长牌皮皮游戏挂，... 避坑细节！四川长牌皮皮游戏挂，微信雀神挂件开挂辅助，详细插件（有挂细节）微信雀神挂件开挂辅助脚本下载...

玩家亲测！博乐填大坑有没有bu... 玩家亲测！博乐填大坑有没有buff，微友辅助神器下载，详细攻略（有挂解惑）1、起透看视博乐填大坑有...

必备教程！微乐小程序卡五星脚本... 必备教程！微乐小程序卡五星脚本，新超圣辅助靠谱不，详细脚本（新版有挂）1、全新机制【微乐小程序卡五星...

一起来讨论！哥哥打大a辅助神器... 一起来讨论！哥哥打大a辅助神器，钱柜手游辅助，详细技巧（果真有挂）1、哥哥打大a辅助神器免费脚本咨询...

apply函数导致内存耗尽。