如果使用doParallel和配方,则出现插入错误

2024年2月3日 176次阅读

当我使用插入符号和新的配方包,即caret :: train.recipe()时,如果还使用doParallel来注册并行后端,则会收到错误消息.附件是一个可重复的示例(插入符号文档中官方配方示例的简短版本)：

### Error only when I use doParallel
library(doParallel)
cl <- makeCluster(3)
registerDoParallel(cl)
###

library(caret)
library(recipes)
library(dplyr)
library(QSARdata)

data(AquaticTox)
tox <- AquaticTox_moe2D
ncol(tox)

tox$Activity <- AquaticTox_Outcome$Activity

tox <- tox %>%
  select(-Molecule) %>%
  mutate(manufacturability  = 1/moe2D_Weight) %>%
  mutate(manufacturability = manufacturability/sum(manufacturability))

wt_rmse <- function (pred, obs, wts, na.rm = TRUE) 
  sqrt(weighted.mean((pred - obs)^2, wts, na.rm = na.rm))

model_stats <- function(data, lev = NULL, model = NULL) {
  stats <- defaultSummary(data, lev = lev, model = model)
  res <- wt_rmse(pred = data$pred,
                 obs = data$obs, 
                 wts = data$manufacturability)
  c(wRMSE = res, stats)
}

tox_recipe <- recipe(Activity ~ ., data = tox) %>%
  add_role(manufacturability, new_role = "performance var")

tox_recipe

tox_ctrl <- trainControl(method = "cv", summaryFunction = model_stats, allowParallel = TRUE)
set.seed(888)
tox_svm <- train(tox_recipe, tox,
                 method = "svmRadial", 
                 metric = "wRMSE",
                 maximize = FALSE,
                 tuneLength = 10,
                 trControl = tox_ctrl)
tox_svm

如果我评论前三行,这将顺利进行.但如果没有：

Error in e$fun(obj, substitute(ex), parent.frame(), e$data) : 
unable to find variable "optimism_boot"

在旧版本的插入符号中也出现了相同的错误(当使用配方时也是如此),参见这里：
https://github.com/topepo/caret/issues/706

它是固定的,因为它不会在不使用doParallel或使用doParallel但没有配方时出现,例如通过train.formula.我正在使用所有包的最新版本：

   > sessionInfo()
R version 3.4.4 (2018-03-15)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

Matrix products: default

locale:
[1] LC_COLLATE=German_Germany.1252  LC_CTYPE=German_Germany.1252    LC_MONETARY=German_Germany.1252
[4] LC_NUMERIC=C                    LC_TIME=German_Germany.1252    

attached base packages:
[1] parallel  stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] doParallel_1.0.11 iterators_1.0.9   foreach_1.4.4     kernlab_0.9-25    bindrcpp_0.2      QSARdata_1.3     
 [7] recipes_0.1.2     broom_0.4.3       dplyr_0.7.4       caret_6.0-78      ggplot2_2.2.1     lattice_0.20-35  

loaded via a namespace (and not attached):
 [1] tidyselect_0.2.4   purrr_0.2.4        reshape2_1.4.3     splines_3.4.4      colorspace_1.3-2   stats4_3.4.4      
 [7] yaml_2.1.18        survival_2.41-3    prodlim_1.6.1      rlang_0.2.0        ModelMetrics_1.1.0 pillar_1.2.1      
[13] withr_2.1.2        foreign_0.8-69     glue_1.2.0         bindr_0.1.1        plyr_1.8.4         dimRed_0.1.0      
[19] lava_1.6           robustbase_0.92-8  stringr_1.3.0      timeDate_3043.102  munsell_0.4.3      gtable_0.2.0      
[25] codetools_0.2-15   psych_1.7.8        class_7.3-14       DEoptimR_1.0-8     Rcpp_0.12.16       scales_0.5.0      
[31] ipred_0.9-6        CVST_0.2-1         mnormt_1.5-5       stringi_1.1.7      RcppRoll_0.2.2     ddalpha_1.3.1.1   
[37] grid_3.4.4         tools_3.4.4        magrittr_1.5       lazyeval_0.2.1     tibble_1.4.2       tidyr_0.8.0       
[43] DRR_0.0.3          pkgconfig_2.0.1    MASS_7.3-49        Matrix_1.2-12      lubridate_1.7.2    gower_0.1.2       
[49] assertthat_0.2.0   R6_2.2.2           rpart_4.1-13       sfsmisc_1.1-2      nnet_7.3-12        nlme_3.1-131.1    
[55] compiler_3.4.4

该错误也出现在运行Windows 10的第二台PC上.非常感谢任何帮助或建议！

最佳答案 安装devel版本：

devtools :: install_github( ‘topepo /插入符/包装/插入符’)

今天要去CRAN.

点赞