# przykład 2.5

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)

irys2<-irys[,3:4]

#        multiedit
irys.ed<-multiedit(irys2, tp, k = 1, V = 3, I = 5, trace = TRUE)
length(irys.ed)
irys.ed

plot(sp[irys.ed],dp[irys.ed],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(tp))
# text(sp[-irys.ed],dp[-irys.ed], as.character(tp[-irys.ed]),col="red")

irys3<-irys[irys.ed,]
tp3<-tp[irys.ed]
text(sp[irys.ed],dp[irys.ed], as.character(tp[irys.ed]))
Z<-knn(scale(irys3,F,c(2.5,6.0)),scale(irysT,F,c(2.5,6.0)),tp3,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)