время выполнения куска и вопрос времени вязания - PullRequest
Новая
       33

время выполнения куска и вопрос времени вязания

0 голосов
/ 04 марта 2019

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

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, он всегда был в состояниине удалось получить вывод

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

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

...