Dear all;I want to do N.network for pH and predict its future.but when I run
the code and plot them (the measured data and the predicted), the predicted
data in all station are same.i do not know what is wrong with this. Here are
the codes that I used:"fit <- neuralnet(pH ~ station.2 + Day,data = bayat2)##
create new data into the futurefuturedata <- expand.grid(station.2 = 1:5, Day =
511:1000)
## do predictionspredictions <- compute(fit, futuredata)predictions2 <-
data.frame(predictions[["neurons"]][[1]][,2:3], pH =
predictions$net.result)head(predictions2)## plot the results together with
original datalibrary(lattice)library(latticeExtra)xyplot(pH ~
Day|factor(station.2), data = bayat2, type = "b", layout = c(3,2), xlim =
c(0:1000))+xyplot(pH ~ Day|factor(station.2), data = predictions2, type = "b",
layout = c(4,2), col = "red")"
Many thanks.
Best Regards
Javad Bayat
Alternative Mail: j.bayat...@gmail.com
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
