svm

http://www.maths.lth.se/help/R/.R/library/e1071/html/svm.html

spam.data
http://www.cimat.mx:88/~omar/computoEstadistico/tarea6/index.html

http://www.ci.tuwien.ac.at/Conferences/DSC-2003/Proceedings/KaratzoglouEtAl.pdf

http://www.csie.ntu.edu.tw/~cjlin/libsvm/#R





http://wwwmaths.anu.edu.au/~johnm/r-book/exercises/chap10.pdf

Cherche, examine et evalue de bons classeurs basés sur les Machines à Vecteurs de Support (SVMs) pour l'ensemble SPAM.

datos<-read.table("spam.data");
nombres<-c();
for(i in 1:57)
nombres<-c(nombres, paste("v",i, sep=""));
nombres<-c(nombres, "clase")
names(datos)<-nombres;
datos$clase<-as.factor(datos$clase);
levels(datos$clase)<-c("uno", "dos");
ajuste<-svm(clase~., data=datos);
pred<-predict(ajuste,newdata=datos);
##Proporción de datos bien clasificados...
sum(pred==datos$clase)/length(datos$clase);