SI LAB4

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


Wyszukiwarka

Podobne podstrony:
SI wstep
Lab4
SI Slowniczek VIsem
SI – Sensory Integration
wyk5 si
Lab4
Palec bozy SI id 798905 Nieznany
druk szkody kl si
lab4 8
OWU SI OiPT 08 07
Systemy Operacyjne lab4, Politechnika Wrocławska, Systemy Operacyjne
Epidemiologia SI, Epidemiologia
[4]tabelka, Elektrotechnika AGH, Semestr II letni 2012-2013, Fizyka II - Laboratorium, laborki, labo
Metoda SI - notatka, metodyka pracy korekcyjno kompensacyjnej
lab4 opr
Lab4
ZP Reszta pyta ktre si nie powtrzyy

więcej podobnych podstron