# przyklad 2.13

attach(irys)
tp<-factor(irys$klasa)
xp<-seq(0.0,2.5,length=100)
yp<-seq(1.0,7.0,length=100)
irysT<-expand.grid(sp=xp,dp=yp)
np<-length(xp)


plot(sp,dp,type="n",ylab='Długość płatka',xlab='Szerokość płatka',main='C=100')
text(sp,dp, as.character(tp))
irys.svm<-svm(tp~sp+dp,cost=100) 
Z<-predict(irys.svm, irysT, type = "class")
contour(xp,yp,matrix(as.numeric(Z=="s"),np),add=T,levels=0.5,labex=0,drawlabels=F)
contour(xp,yp,matrix(as.numeric(Z=="v"),np),add=T,levels=0.5,labex=0,drawlabels=F)

plot(sp,dp,type="n",ylab='Długość płatka',xlab='Szerokość płatka',main='C=0,01')
text(sp,dp, as.character(tp))
irys.svm<-svm(tp~sp+dp,cost=0.01) 
Z<-predict(irys.svm, irysT, type = "class")
contour(xp,yp,matrix(as.numeric(Z=="s"),np),add=T,levels=0.5,labex=0,drawlabels=F)
contour(xp,yp,matrix(as.numeric(Z=="v"),np),add=T,levels=0.5,labex=0,drawlabels=F)