testCPU

Tải gói dữ liệu cần thiết

#Không chạy được trên r-studio

#goi <- c("parallel","doParallel","foreach")
#for (package in goi ) {
#  if (!package %in% installed.packages()) {
#    install.packages(package)
#  }
#  if (!package %in% .packages()) {
#    library(package, character.only = TRUE)
# }
#}


library(foreach)
library(doParallel)

## Loading required package: iterators

## Loading required package: parallel

Xem nhân trong máy

detectCores()

## [1] 4

n <-detectCores() -1
registerDoParallel(n)

Chạy phân nhóm cluster

detectCores()

## [1] 4

myCluster <- makeCluster(n, # number of cores to use
                         type = "PSOCK") # type of cluster
registerDoParallel(myCluster)
stopCluster(myCluster)

Kiểm tra

#foreach::getDoParRegistered() # xem đăng ký nhân
#foreach::getDoParWorkers().   # xem nhân làm việc
#parallel::detectCores()
#parallel::makeCluster()
#doParallel::registerDoParallel()
#parallel::stopCluster()