r - 插入符号神经网络错误 : "missing values in resampled performance measures"

Question

我以前见过其他人有这个错误，但是，我没有找到满意的答案。我想知道是否有人可以对我的问题提供一些见解？

我有一些汽车拍卖数据，我试图对其进行建模以预测 Hammer.Price .

> str(myTrain)
'data.frame':   34375 obs. of  9 variables:
 $ Grade          : int  4 4 4 4 2 3 4 3 3 4 ...
 $ Mileage        : num  150850 113961 71834 57770 43161 ...
 $ Hammer.Price   : num  750 450 1600 4650 4800 ...
 $ New.Price      : num  15051 13795 15051 14475 14475 ...
 $ Year.Introduced: int  1996 1996 1996 1996 1996 1996 1996 1996 1996 1996 ...
 $ Engine.Size    : num  1.6 1.6 1.6 1.6 1.6 1.6 1.6 1.6 1.6 1.6 ...
 $ Doors          : int  3 3 3 3 3 3 3 3 3 3 ...
 $ Age            : int  3771 4775 3802 2402 2463 3528 3315 3193 4075 4988 ...
 $ Days.from.Sale : int  1778 1890 2183 1939 1876 1477 1526 1812 1813 1472 ...

myTrain包含随机 70% 的数据和 myTest剩下的 30%，我训练模型

myModel <- train(Hammer.Price ~ ., data = myTrain, method = "nnet")

这会导致以下警告:

Warning message: In nominalTrainWorkflow(x = x, y = y, wts = weights, info = trainInfo, : There were missing values in resampled performance measures.

当我尝试预测所有结果都等于 1 时。

myTestPred <- predict(myModel, myTest)

我之前曾使用这些数据使用 SPSS Modeller 训练 MLP 神经网络，但似乎无法在 R 中重新创建结果。我已经尝试过插入符号中的其他一些神经网络包，但总是得到相同的结果。

有没有人比我更了解这一点？

Answer 1

如果在调用 train 之前缩放数据，是否可以解决问题？ ?如果在运行模型之前没有缩放所有变量，我会在 glmnet 和 nnet 上遇到这个问题。如果您将所有变量设为数字，它也有帮助(轶事)。

您还可以尝试使重采样明确，例如使用

myControl <- trainControl(method = "repeatedcv", repeats=5, number = 10)

然后将其传递给 train :

myModel <- train(Hammer.Price ~ .,
    data = myTrain,
    method = "nnet",
    trControl = mycontrol)

如果没有数据，有时很难发现错误，抱歉。