Pourquoi l'utilisation de% boucle% utilise-t-elle plusieurs processeurs? Boucle séquentielle attendue

Question

J'utilise foreach et je lis dessus, par exemple.

• https://www.r-bloggers.com/the-wonders-of-foreach/
• https://www.rdocumentation.org/packages/foreach/versions/1.4.3/topics/foreach

je crois comprendre que vous utiliseriez %dopar% pour le traitement parallèle et %do% pour séquentiel. En fait, j'avais des problèmes avec %dopar% et en essayant de déboguer je l'ai changé en une boucle que je pensais être séquentielle en utilisant %do%. Il m'est arrivé d'avoir le terminal ouvert et j'ai remarqué que tous les processeurs tournaient pendant que je courais la boucle.

Est-ce prévu?

exemple Reproductible:

library(tidyverse) 
library(caret) 
library(foreach) 

# expected to see parallel here because caret and xgb with train() 
xgbFit <- train(Species ~ ., data = iris, method = "xgbTree", 
       trControl = trainControl(method = "cv", classProbs = TRUE)) 

iris_big <- do.call(rbind, replicate(1000, iris, simplify = F)) 

nr <- nrow(iris_big) 
n <- 1000 # loop over in chunks of 20 
pieces <- split(iris_big, rep(1:ceiling(nr/n), each=n, length.out=nr)) 
lenp <- length(pieces) 

# did not expect to see parallel processing take place when running the block below 
predictions <- foreach(i = seq_len(lenp)) %do% { 

    # get prediction 
    preds <- pieces[[i]] %>% 
    mutate(xgb_prediction = predict(xgbFit, newdata = .)) 

    return(preds) 
} 

bah <- do.call(rbind, predictions) 

Answer 1

Ma meilleure estimation serait que ces derniers sont en cours d'exécution des processus encore des courses précédentes.

Il en est de même lorsque vous utilisez foreach::registerDoSeq()?

Ma deuxième supposition serait que predict fonctionne en parallèle.