b.txt

library(AMORE)
library(RODBC)
setwd("C:/Users/£ukasz/Desktop/WAT/MIW/miwplikixls/")
dane<-odbcConnectExcel(mieszkanie3.xls");
D_uczace1 <- sqlQuery(dane, "select * from [Dane1$]");
G_uczace1 <- sqlQuery(dane, "select * from [Grupa1$]");
D_uczace2<- sqlQuery(dane, "select * from [Dane2$]");
G_uczace2 <- sqlQuery(dane, "select * from [Grupa2$]");

D_uczace1=as.matrix(Dane1);
G_uczace1=as.vector(Grupa1);
D_uczace2 =as.matrix(Dane2);
G_uczace2 =as.vector(Grupa2);

net <- newff(n.neurons=c(4,5,5,1), learning.rate.global=4e-3, momentum.global=0.4, error.criterium="TAO", Stao=NA, hidden.layer="tansig",output.layer="purelin",method="ADAPTgdwm");
wynik <- train(net,D_uczace1,G_uczace1,D_uczace2,G_uczace2, error.criterium="LMS", report=TRUE, show.step=300, n.shows=40);
grupowanie <- round(sim(wynik$net,D_uczace2 ));
porownanie <- data.frame(G_uczace2 ,grupowanie ,abs(G_uczace2-grupowanie));
porownanie;
wynik <- sum(abs(G_uczace2-grupowanie));
wynik;