Bonjour,
J'essaie de lancer un script R sur plusieurs PC. Pour faire cela j'ai trouvé sur le Web deux posibilités :
1ere :
2ème : (http://www.win-vector.com/blog/2016/...many-machines/)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 cluster <- makePSOCKcluster("localhost") parSapply(cluster, 1:5, sqrt) stopCluster(cluster) spec=c(rep("localhost",4),rep("Adresse IP du second poste",4)) makeCluster(spec=spec,master=spec[1],type="PSOCK",port=10187, timeout = 5,outfile="")
Pour la première solution, le code s'éxécute mais ne s'arrête pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 primary <- 'Adresse IP de mon pc' machineAddresses <- list( list(host=primary,user='nig',ncore=4), list(host='Adresse IP du second poste',user='nig',ncore=4) ) spec <- lapply(machineAddresses, function(machine) { rep(list(list(host=machine$host, user=machine$user)), machine$ncore) }) spec <- unlist(spec,recursive=FALSE) parallelCluster <- parallel::makeCluster(type='PSOCK', master=primary,spec=spec) print(parallelCluster)
Pour la seconde solution, je rencontre l'erreur suivante :
Auriez vous une idée?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 > parallelCluster <- parallel::makeCluster(type='PSOCK', master=primary,spec=spec) Error in assign(names[i], new[[i]], envir = options) : premier argument incorrect
Merci par avance.
Partager