# rysunek 2.22

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)

tpi<-class.ind(tp)
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="M=20    lambda=0,001")
text(sp,dp, as.character(tp))
irys.nn<-nnet(irys2,tpi,skip=T,softmax=T,size=20,col=2,decay=0.001,maxit=1000)
Z<-predict(irys.nn,irysT)
zp<-Z[,1]-pmax(Z[,2],Z[,3])
contour(xp,yp,matrix(zp,np),add=T,levels=0.5,labex=0,drawlabels=F)

# b
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="M=20    lambda=0.1")
text(sp,dp, as.character(tp))
irys.nn<-nnet(irys2,tpi,skip=T,softmax=T,size=20,col=2,decay=0.1,maxit=1000)
Z<-predict(irys.nn,irysT)
zp<-Z[,1]-pmax(Z[,2],Z[,3])
contour(xp,yp,matrix(zp,np),add=T,levels=0.5,labex=0,drawlabels=F)