modified adaboost.R