Блог

Я получил следующий код.

 library(gbm)
library(magrittr)

mydata = read.csv(file="optometry_student.csv",header=T,sep=",")
set.seed(24)
mycombinations = expand.grid(shrinkage=c(0.001,0.01,0.1),interaction.depth=c(3,6,9),bag.fraction=c(0.5,0.5,0.5),optimal_trees=0,min_deviance=0)
for(i in 1:nrow(mycombinations)) {
  set.seed(24)
  bagging_m <- gbm(
    formula = tabxneg0~.,
    distribution="bernoulli",
    data = mydata,
    n.trees = 500,
    interaction.depth = mycombinations$interaction.depth[i],
    shrinkage = mycombinations$shrinkage[i],
    bag.fraction = mycombinations$bag.fraction[i],
    cv = 5
  )
  mycombinations$optimal_trees[i] <- which.min(bagging_m$cv.error)
  mycombinations$min_deviance <-min(bagging_m$cv.error)
}
mycombinations %>%
  dplyr::arrange(min_deviance) %>%
  head(5)
  

и когда я запустил этот код в первый раз, его завершение заняло примерно 2 минуты.Однако, когда я вязал это в pdf, оно всегда находилось в состоянии выполнения, не удалось получить результат

А также, когда я попытался запустить этот фрагмент во второй раз, он также не смог быть завершен.

Кто-нибудь знает, чем вызвана разница во времени выполнения одного и того же кода?