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 の行数と一致しないと表示されていますが、これは何の問題でしょうか?