options(OutDec=",")
library("MASS")
library("class")
library("tree")

# irys
attach(iris)
sp<-iris$Petal.Width
dp<-iris$Petal.Length
tp<-factor(iris$Species)

#drzewa
dane<-data.frame(tp=tp,sp=sp,dp=dp)
irys.tr<-tree(tp~sp+dp,dane,minsize=50)

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(tp))
par(cex=2)
partition.tree(irys.tr,label="",add=T)

plot(irys.tr)
par(cex=1.5)
text(irys.tr)
par(cex=1)