क्या मैं समानांतर घोंसला कर सकता हूं ::: लंबवत()?

Question

मान लीजिए कि मैं आर में कुछ है कि सामान्य रूप से होता है (एक प्रक्रिया/सूत्र में) इस तरह दिखना क्या करना चाहते हैं:, आर के नए पैकेज समानांतर का उपयोग करते हुए एक क्वाड-कोर मशीन पर

for(i in 1:2) { 
    for(j in 1:2) { 
     #Do some stuff here 
    } 
} 

, मैं निम्नलिखित कर सकते हैं?

cluster<-makeCluster(4) 

innerLoop<-function() { 
    #Do some stuff here 
} 

outerLoop<-function() { 
    result<-do.call(, parLapply(cluster, c(1:2), innerLoop)) 
} 

final.result<-do.call(, parLapply(cluster, c(1:2), outerLoop)) 

क्या यह आर-2.14.0 के साथ समानांतर पैकेज के साथ संभव है?

Answer 1

हाँ, आप यह कर सकते हैं। समांतरता के पहले स्तर के लिए आपको वितरित स्मृति तकनीक (बर्फ पैकेज से मेकक्लस्टर() के रूप में उपयोग करना होगा) और समांतरता के दूसरे स्तर में आपको साझा मेमोरी तकनीक (मल्टीकोर पैकेज, mclapply()) का उपयोग करना होगा।

library(parallel) 

cl <- makeCluster(2) 

inner <- function(x){ 
    pid <- Sys.getpid() 
    name <- Sys.info()["nodename"] 
    str <- paste("This is R running on", name, "with PID", pid, "!") 
    return(str) 
} 

outer <- function(x, cores, funceval){ 
    require(parallel) 
    mclapply(1:cores, funceval) 
} 

parLapply(cl, 1:length(cl), outer, 2, inner) 

उत्पादन में आप अलग अलग मशीन के नाम और विभिन्न PIDs देखना चाहिए:

यहाँ एक सरल कोड उदाहरण है!