R xgboost

Ici on a utilisé le wrapper r de l’algorithme qu’on a aussi fait tourner 100 fois.

A chaque fois, on a utilisé la fonction de timestamp classique de chaque language.

[...]
t0 = rep(0,n) 
t1 = rep(0,n)

for (i in 1:n){
   #  print(i)
    t0[i] = Sys.time()

    model <- xgboost(data = xgboost_train,                   
                    max.depth=6,                           
                    nrounds=100, 
                    verbose = 0)                             

    # summary(model)

     pred_test = predict(model, xgboost_test)

    t1[i] = Sys.time()
}
[...]