> library(tree)
Warning message:
package ętreeł was built under R version 2.14.1
> library(RODBC)
> setwd("d:/SI 6")
> dane <- odbcConnectExcel("WE.xls")
> DATA <- sqlQuery(dane, "select * from [Arkusz1$]")
> DATAVAL <-sqlQuery(dane,"select * from [Arkusz3$]")
> names(DATA)<-c("size","cost","fited","center","class")
> attach(DATA)
> names(DATAVAL)<-c("size","cost","fited","center","class")
> attach(DATAVAL)
The following object(s) are masked from 'DATA':

center, class, cost, fited, size
> tk<-table(class)
> drzewo.DATA <- tree(class~.,data=DATA)
> sd <- summary(drzewo.DATA)
> plot(drzewo.DATA)
> text(drzewo.DATA)
> drzewo2.DATA<-prune.tree(drzewo.DATA, best=5)
> plot(drzewo2.DATA)
> text(drzewo2.DATA)
>
> x <-predict (drzewo.DATA,DATAVAL)
> x=round(x,0)
>
> y<-data.frame(DATAVAL$class, x)
> R=sum(abs(DATAVAL$class-x))
>
> x1 <-predict (drzewo2.DATA,DATAVAL)
> x1=round(x1,0)
>
> y1<-data.frame(DATAVAL$class, x1)
> R1=sum(abs(DATAVAL$class-x1))
> R
[1] 8
> R1
[1] 8
>