for (i in 1:num_trials){
params=my_params[i,]
k=cvTuning(randomForest,campaign~.-y,
data = bf_train1,
tunning = params,
folds = cvFolds(nrow(bf_train), K = 10, type = "random"),
seed = 2
)
score.this=k$cv[,2]
if(score.this<myerror){
myerror=score.this
best_params=params
}
}