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