R语言矩阵计算加速优化求助：附可复现测试示例

嘿，我碰到个头疼的问题——自己写的R程序优化度太低，计算速度慢得离谱。这里有个和我问题高度相似的可复现示例，用来测试不同行数的2列矩阵执行行求和操作的耗时：

首先定义测试用的行数序列：

x <- seq(1, 10000, by = 1000)

接下来是测试耗时的函数：

testy <- function(x){ 
  testmatrix <- matrix(runif(x*2, 0, 10), nrow=x, ncol=2) 
  y <- microbenchmark(rowSums(testmatrix), unit="ms", times=1)$time 
  return(y) 
}

另外还有一个用于测试……（注：原内容此处未补充完整）

内容的提问来源于stack exchange，提问作者jayinbluecity