Create Adaboost.R

Why this does not work?