Кто-нибудь использует функцию RSNNS для прогнозирования с помощью нейронных сетей? Это всегда работало, однако, сегодня я использовал это, и прогноз очень странный.
require(RSNNS)
a<-jordan(mtcars[,5],mtcars[,1], size=10, maxit=1000)
b<-predict(a,data.frame(mtcars[,5]))
plot(mtcars[,1],type="l",col="blue",ylim = c(1,40))
lines(b,type="l",col="black")
a<-mlp(mtcars[,5],mtcars[,1], size=10, maxit=1000)
b<-predict(a,data.frame(mtcars[,5]))
plot(mtcars[,1],type="l",col="blue",ylim = c(1,40))
lines(b,type="l",col="black")