Tryed bayes and SMOTE in R, not work either