请问parApply如何较快的处理一个30万行，2列的大矩阵，用parApply感觉也不快

如题,用parApply处理花费时间和用for循环没差多少，用foreach感觉更慢了，并行计算怎么感觉不快呀
代码：

data <- data.frame('a' = l$a, 'b' = l$b)
c <- rep(0, length(l$a))
t1 <- Sys.time()
cl <- parallel::makeCluster(4)
envir <- environment(subbeta)
parallel::clusterExport(cl, varlist = ls(envir), envir = envir)
c <- parallel::parApply(cl, data, 1, subbeta) 
parallel::stopCluster(cl)
t2 <- Sys.time()
print(t2 - t1)

这个比用for循环没有快，想问下处理这样的大矩阵有什么好方法~