Посмотрите на функцию svm в пакете e1071.
Вы также можете рассмотреть пакеты kernelab, klaR или svmpath.
РЕДАКТИРОВАТЬ: @CodeGuy, Джон предоставил вам пример. Я предполагаю, что ваши 4 измерения - это функции, которые вы используете для классификации ваших данных, и что у вас есть еще одна другая переменная, которая является реальным классом.
y <- gl(4, 5)
x1 <- c(0,1,2,3)[y]
x2 <- c(0,5,10,15)[y]
x3 <- c(1,3,5,7)[y]
x4 <- c(0,0,3,3)[y]
d <- data.frame(y,x1,x2,x3,x4)
library(e1071)
svm01 <- svm(y ~ x1 + x2 + x3 + x4, data=d)
ftable(predict(svm01), y) # Tells you how your svm performance