R scripts for SVM