demo    R code for xgboost usages on agaricus data