Почему cv.glmnet параллельно =TRUE не работает

Question

Я пытаюсь запустить перекрестную проверку glmnet параллельно. Истекшее время между параллельной и непараллельной версиями не показывает существенной разницы

Я пробовал как с Windows 7 корпоративный ноутбук (8 ядер), так и с сервером Windows (24 ядра).

library(doParallel)
library(glmnet)
no_cores <- detectCores() - 1
print(no_cores)
cl <- makeCluster(no_cores)
registerDoParallel(cl)

x = matrix(rnorm(1e5 * 300), 1e5, 300)
y = rnorm(1e5)
system.time(cv.glmnet(x,y,parallel=TRUE))  # this is parallel
stopCluster(cl)
system.time(cv.glmnet(x,y))                # not parallel

это параллельно

   user  system elapsed 
  18.16   46.76   79.45 

не параллельно

system.time(cv.glmnet(x,y))                
   user  system elapsed 
  75.36    2.75   78.10