simple svm by R