# przykład 2.4

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)

# 1-NN  
plot(sp,dp,type="n",ylab='Długość płatka',xlab='Szerokość płatka',xlim=c(0, 2.5), ylim=c(1.0,7.0),main="k=1")
text(sp,dp, as.character(tp))
Z<-knn(scale(irys,F,c(2.5,6.0)),scale(irysT,F,c(2.5,6.0)),tp,k=1)
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)


# 7-NN
plot(sp,dp,type="n",ylab='Długość płatka',xlab='Szerokość płatka',xlim=c(0, 2.5), ylim=c(1.0,7.0),main="k=7")
text(sp,dp, as.character(tp))
Z<-knn(scale(irys,F,c(2.5,6.0)),scale(irysT,F,c(2.5,6.0)),tp,k=7)
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)


# Voronoi rys. 2.7
irys.vm<-voronoi.mosaic(sp,dp,duplicate="strip")
plot(sp,dp,type="n",ylab='Długość płatka',xlab='Szerokość płatka',xlim=c(0, 2.5), ylim=c(1.0,7.0))
text(sp,dp, as.character(klasa))
plot.voronoi(irys.vm,all=F,add=T,do.points=F)