很久没有写博客了
发现博客看的最多的还是自己实现简单代码的东西
但太懒了,现在都是调用包
前几天, 觉得自己程序太慢, 于是乎将其并行化
搜了几个博客, 发现例子都是一样的
不明觉厉
但内容够用
只是由于我当时的程序是生成参数和图片一起生成的(还是代码写的少,结构化的东西应该分开, 已经分开了…), 所以需要并行图片。
好了废话少说:
并行分为 master -> slave 节点
开始时master -> slave 传送数据, 然后最终收回(至于怎么收回何时收回,不懂…)
建议先看这个链接,算是入门吧:http://blog.itpub.net/24229571/viewspace-1120592/
# 给并行主函数里的参数赋值, 主函数在下面
PRE_OR_NOT <- ....
maxTrain <- ....
maxTest <- ....
cat("parallel begin... \n")
parallel.time.start <- Sys.time()
#parallel
core.num <- detectCores(logical = F) #detect core numbers
cl <- makeCluster(core.num - 1) # set core numbers in parellel
#只在master(即Rstudio 打印)
cat("core number is",core.num," \n") #Print Core Number
#注册节点
registerDoParallel(cl) #register
#pass all args