svm R example added