BAGGING

library(ipred)

library(RODBC)

setwd("e:/")

dane <- odbcConnectExcel("LAB7.xls")

DATA <- sqlQuery(dane, "select * from [DaneUcz$]")

DATA2 <- sqlQuery(dane, "select * from [DaneWal$]")

Preferencja <- sqlQuery(dane, "select * from [GrupaPreferencji$]")

Preferencja=as.vector(Preferencja)

names(DATA)<-c("Duze","Tanie","Uzbrojone","BliskoCentrum","Grupa")

names(DATA2)<-c("Duze","Tanie","Uzbrojone","BliskoCentrum","Grupa")

mod <- bagging(Grupa~., data=DATA, coob=TRUE)

print(mod)

summary(mod)

Przewidywanie<-predict(mod, newdata=DATA2)

Rezultat<- data.frame(round(Przewidywanie),Preferencja)

Random Forests:

library(randomForest)

library(RODBC)

setwd("e:/")

dane <- odbcConnectExcel("LAB7_AGrzeszyk.xls")

DATA <- sqlQuery(dane, "select * from [DaneUcz$]")

DATA2 <- sqlQuery(dane, "select * from [DaneWal$]")

Preferencja <- sqlQuery(dane, "select * from [GrupaPreferencji$]")

Preferencja=as.vector(Preferencja)

names(DATA)<-c("Duze","Tanie","Uzbrojone","BliskoCentrum","Grupa")

names(DATA2)<-c("Duze","Tanie","Uzbrojone","BliskoCentrum","Grupa")

mod <- randomForest(Grupa~., data=DATA)

print(mod)

summary(mod)

Przewidywanie<-predict(mod, newdata=DATA2)

drzewko<-getTree(mod)

plot(mod)

drzewko

Rezultat<- data.frame(round(Przewidywanie),Preferencja)

Rezultat