adding smote R