Я пытаюсь запустить перекрестную проверку для xgboost в R ядре в kaggle. Для этого мне нужно было использовать цикл. Но следующий код дает это:
Ошибка разбора (текст = x, srcfile = src):: 2: 0: неожиданный конец ввода
Может кто-нибудь помочь мне, если что-то не хватает в коде. И если нет, есть ли другой способ решить эту проблему? Я нуб в мире кодирования:)
С уважением.
for(iter in 1:100){
param <- list(objective = "binary:logistic",eval_metric = "auc",num_class = 12,max_depth = sample(6:10, 1),eta = runif(1, .01, .3),gamma = runif(1, 0.0, 0.2), subsample = runif(1, .6, .9),colsample_bytree = runif(1, .5, .8), min_child_weight = sample(1:40, 1),max_delta_step = sample(1:10, 1))
cv.nround = 1000
cv.nfold = 5
seed.number<-sample.int(10000,1)
set.seed(seed.number)
mdcv <- xgb.cv(data=dtrain, params = param, nthread=6, nfold=cv.nfold, nrounds=cv.nround,verbose = F, early_stopping_rounds=8, maximize=TRUE)
max_auc = max(mdcv[,test.auc.mean])
max_auc_index = which.max(mdcv[,test.auc.mean])
if(max_auc > best_auc)
{best_auc = max_auc
best_auc_index = max_auc_index
best_seednumber = seed.number
best_param = param}}