1 install.packages("parallel")
2 library("parallel")
3 install.packages('doParallel')
4 library("doParallel")
5 
6 n_Cores <- detectCores()##检测你的电脑的CPU核数
7 cluster_Set <- makeCluster(n_Cores)##进行集群
8 registerDoParallel(cluster_Set)

参考了https://blog.csdn.net/weixin_36220483/article/details/52639469 完整的R语言预测建模实例-从数据清理到建模预测