a<-nnet(w[-m,-1],w[-m,1],size=3,rang=0.03,decay=5e-4,maxit=200)
  y0<-predict(a,w[-m,-1])
  y1<-predict(a,w[m,-1])

m测试集下标 -m训练集下标 w是数据
如果不设置衰减  predict预测的结果y0 y1都是1
即便设置衰减 预测的结构也都是0.9999988 0.9999987这样非常接近于1的结果，同时发现，模型没有达到最大的跌打次数maxit就停止了
# weights:  25
initial  value 41129.554714
iter  10 value 38734.452561
iter  20 value 38662.579383
iter  30 value 38661.791188
iter  30 value 38661.790990
iter  30 value 38661.790946
final  value 38661.790946

请问这是什么情况 是方法错误 还是数据本身的问题？ 如何解决呢？ 谢谢指教~