R 并行化运行

想用R跑一个运算量很大的模型。实在太浪费时间了。找到可以使用并行化运算来解决这个问题。
首先选择了paralelle包。试试看速度如何。

library(parallel)
cl.cores <- detectCores()
#先查下自己电脑几核的，n核貌似应该选跑n个线程，线程不是越多越好，
#线程个数和任务运行时间是条开口向下的抛物线，最高点预计在电脑的核数上。detectCores( )检查当前电脑可用核数  
cl <- makeCluster(4,type="FORK") # 初始化四核心集群
result<-parApply(cl,comb,1,combcal)

我使用的是parApply，和apply相对应。sapply等别的有别的对应函数。只需要多加一个cl就可以了。真的快好多呀！

我们得到很多p值，但都不显著。是不是哪个地方错了呢？我们可以做一个柱状图，如果是平的，也就是均匀分布。那就是算的应该没问题。换个数据跑跑吧。