Autre test, le parallélisme implémenté dans R.
J'ai essayé le code suivant, qui me paraît idéal pour du parallélisme :
Résultats :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 m=18 dimension=6 grosse=array(1,rep(m,dimension)) system.time(somme<-apply(grosse,1,sum)) # verification du resultat somme==m^(dimension-1) library(parallel) detectCores() cl <- makeCluster(getOption("cl.cores", detectCores())) system.time(somme<-parApply(cl,grosse, 1, sum)) somme==m^(dimension-1) stopCluster(cl)
pas de gain de temps
les petits graphiques d'utilisation des cœurs restent tout plats.
A moins que j'ai fait une grosse erreur d'utilisation (et alors la doc est une peu confusante), c'est pas bon.
Partager