library(AMORE) library(gdata) setwd("C:/Users/£ukasz/Desktop/WAT/MIW/miwplikixls/") WE <-read.xls("mieszkanie2.xls", sheet=1) WY <-read.xls("mieszkanie2.xls", sheet=2) WE=as.matrix(WE) WY=as.matrix(WY) net <- newff(n.neurons=c(35,35,35,1), learning.rate.global=1e-2, momentum.global=0.5, error.criterium="TAO", Stao=NA, hidden.layer="tansig", output.layer="purelin",method="ADAPTgdwm") result <- train(net, WE, WY, error.criterium="LMS", report=TRUE, show.step=200, n.shows=10 ) WYSN<-sim(result$net,WE) wynik <- data.frame(WY, WYSN) wynik write.table(wynik, file = "D:/wyniki.csv", append = FALSE, quote = TRUE, sep = " ", eol = "\n", na = "NA", dec = ".", row.names = TRUE, col.names = TRUE, qmethod = c("escape", "double"), fileEncoding = "")
sq2wkh