我这有三年的历史数据，数据是按天统计的，在用AMORE进行数据预测时，为什么最后输出的结果都是一个数呢？代码如下，大神帮忙看下library(AMORE)
#三年的历史数据
d2013<-get2013data()
d2013c<-c(d2013$Y)
d2014<-get2014data()
d2014c<-c(d2014$Y)
d2015<-get2015data()
d2015c<-c(d2015$Y)
#构建模型需要的数据
modely<-cbind(d2013c,d2014c,d2015c)
#进行数据归一化处理
modelys<-scale(modely)
#训练目标数据
targery = d2015c
#数据归一化处理
targerys<-scale(targery)
#构建神经网络
net <- newff(n.neurons=c(1,3,2,1), learning.rate.global=1e-2, momentum.global=0.5,
             error.criterium="LMS", Stao=NA, hidden.layer="tansig",
             output.layer="purelin", method="ADAPTgdwm")
#训练数据
result <- train(net,modelys,targerys, error.criterium="LMS", report=TRUE, show.step=1000, n.shows=5 )

y <- sim(result$net, as.numeric(modely))
最后看了下y输出的结果都是一个数据，为什么会这样呢？？？？