CODE:
seedx=12345 set.seed(seedx) train_control1 <- trainControl(method="repeatedcv", number=5, repeats=50, savePrediction