无法重新组织R中嵌套的foreach循环的结果
该代码(我目前所使用的更简单版本)在串行后端上运行完美:无法重新组织R中嵌套的foreach循环的结果,r,parallel-processing,parallel.foreach,R,Parallel Processing,Parallel.foreach,该代码(我目前所使用的更简单版本)在串行后端上运行完美: regis <-list() EOFvalues <-array(,c(5,6)) EOFvaluesM <-array(,c(5,6)) for(j in 1:6) { for(k in 1:5){ loc_no <- (j-1)+k regis[[j]]=c(j,k) EOFvalues[k,j]=j+k EOFvaluesM[k,j]=j*k }} regis幸运的是
regis <-list()
EOFvalues <-array(,c(5,6))
EOFvaluesM <-array(,c(5,6))
for(j in 1:6) {
for(k in 1:5){
loc_no <- (j-1)+k
regis[[j]]=c(j,k)
EOFvalues[k,j]=j+k
EOFvaluesM[k,j]=j*k
}}
regis幸运的是,我的问题有一个简单的解决方案
regis <-list()
EOFvalues <-array(,c(5,6))
EOFvaluesM <-array(,c(5,6))
library(doParallel)
cores0=detectCores()
cl<-makeCluster(cores0, type= "SOCK" ,outfile="")
registerDoParallel(cl)
oper_a <- foreach(j=1:6, .combine='rbind',.export = c("%dopar%"), .packages = c("doParallel")) %dopar% {
foreach(k=1:5,.export = c("%dopar%"), .packages = c("doParallel")) %do% {
res<-list()
res$regis <- c(j,k)
res$EOFvalues <- j+k
res$EOFvaluesM <- j*k
return(res)
# regis[[j]]=c(j,k)
# EOFvalues[k,j]=j+k
# EOFvaluesM[k,j]=j*k
# par_res <- list(regis,EOFvalues,EOFvaluesM)
}
}
################### The Solution ################
final_regis <- list() #made a list for all the three parameters
final_EOFvalues <- list() #...so that EOFvalues and EOFvaluesM can be converted from list to matrix
final_EOFvaluesM <- list()
for(i in 1:length(oper_a)){ #Here the above made lists are filled
final_regis <- c(final_regis,oper_a[[i]][["regis"]])
final_EOFvalues <- c(final_EOFvalues,oper_a[[i]][["EOFvalues"]])
final_EOFvaluesM <- c(final_EOFvaluesM,oper_a[[i]][["EOFvaluesM"]])
}
#Unlist to convert them into vectors.Also i don't know why but as.matrix doesn't give the correct dimensions.So I used simply matrix
mat_Afinal_EOFvalues <- matrix(unlist(final_EOFvalues),nrow=5,byrow=TRUE)
mat_Bfinal_EOFvaluesM <- matrix(unlist(final_EOFvaluesM),nrow=5,ncol=6,byrow=TRUE)
stopImplicitCluster()
#Hurray
regis
regis <-list()
EOFvalues <-array(,c(5,6))
EOFvaluesM <-array(,c(5,6))
library(doParallel)
cores0=detectCores()
cl<-makeCluster(cores0, type= "SOCK" ,outfile="")
registerDoParallel(cl)
oper_a <- foreach(j=1:6, .combine='rbind',.export = c("%dopar%"), .packages = c("doParallel")) %dopar% {
foreach(k=1:5,.export = c("%dopar%"), .packages = c("doParallel")) %do% {
res<-list()
res$regis <- c(j,k)
res$EOFvalues <- j+k
res$EOFvaluesM <- j*k
return(res)
# regis[[j]]=c(j,k)
# EOFvalues[k,j]=j+k
# EOFvaluesM[k,j]=j*k
# par_res <- list(regis,EOFvalues,EOFvaluesM)
}
}
################### The Solution ################
final_regis <- list() #made a list for all the three parameters
final_EOFvalues <- list() #...so that EOFvalues and EOFvaluesM can be converted from list to matrix
final_EOFvaluesM <- list()
for(i in 1:length(oper_a)){ #Here the above made lists are filled
final_regis <- c(final_regis,oper_a[[i]][["regis"]])
final_EOFvalues <- c(final_EOFvalues,oper_a[[i]][["EOFvalues"]])
final_EOFvaluesM <- c(final_EOFvaluesM,oper_a[[i]][["EOFvaluesM"]])
}
#Unlist to convert them into vectors.Also i don't know why but as.matrix doesn't give the correct dimensions.So I used simply matrix
mat_Afinal_EOFvalues <- matrix(unlist(final_EOFvalues),nrow=5,byrow=TRUE)
mat_Bfinal_EOFvaluesM <- matrix(unlist(final_EOFvaluesM),nrow=5,ncol=6,byrow=TRUE)
stopImplicitCluster()
#Hurray