神经元中的错误[[i]]％*％权重[[i]]：不一致的参数

Question

使用 neuralnet package 开发回归模型，我检查过没有NA或NAN值，并且测试数据集中只有预测变量。

n <- names(y[673:29952,])
f <- as.formula(paste("y[673:29952,]$x1 ~ ", paste(n[!n %in% "y[673:29952,]$x1"], collapse = " + ")))

  nn1 <- neuralnet(f,data=y[673:29952,],hidden=5,linear.output=T)

   pr.nn <- compute(nn1,y[29953:30432,2:8])

请帮我解决。