r - R 中的神经网络训练和测试

Question

我正在使用 r 解决神经网络问题。这是我的编码：

library(nnet)
set.seed(1)
ann<-nnet(traindata[,1]~traindata[,2]+traindata[,3]+traindata[,4]+traindata[,5]+traindata[,6]+traindata[,7]+traindata[,8],size=10,decay=0.001,maxit=10000)
pred0<-predict(ann,traindata[,1])
pred1<-predict(ann,testdata)
nmse0 <- mean((traindata$RTDP-pred0)^2)/mean((traindata$RTDP-mean(traindata$RTDP))^2)
nmse1 <- mean((traindata$RTDP-pred1)^2)/mean((traindata$RTDP-mean(traindata$RTDP))^2)

但是，它说 testdata 中的行数与 traindata 中的行数不匹配，这是什么问题？