Take a look at the svm function in the e1071 package. You can also consider kernelab, klaR, or svmpath packages.
EDIT: @CodeGuy, John provided you with an example. I believe that your 4 dimensions are functions that you use to classify your data, and that you have another other variable that is a real class.
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)
source share