在R中把循环写成并行运算
发布网友
发布时间：2022-04-19 10:03
我来回答
共1个回答
热心网友
时间：2023-08-26 01:06
这个不难，给你提供一份代码，欢迎追问。
------------------------
library(parallel)
library(iterators)
library(foreach)
library(doParallel)
cores=detectCores()
cl <- makeCluster(cores[1]-1)
registerDoParallel(cl)
a=rep(100, NA)
rate=rep(100, NA)
foreach(i = 1:100)%dopar%{
rate[i] = i / 100
b=runif(100, 0,1)
c=runif(100, 0,1)
a[i]=mean(b^2+c^2<rate[i])
}
plot(rate, a)
#stop cluster
stopCluster(cl)
声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com