addition of jonathan's svm mooc R script