r - Rのキャレット付きNnet

Question

Rで多項式分類方程式を解こうとすると、多くの問題が発生します。これを解決するためにnnetとcaretパッケージを使用しています。データセットは以下にあり、これは再現可能です:

df

PARTNER2      ADV
       A    Gamma
       B    Gamma
       C    Gamma
       D    Gamma
       D    Gamma
       E    Gamma
       F    Gamma
       G    Gamma
       F    Gamma
       F    Gamma
       H    Gamma
       I    Gamma
       F    Gamma
       J    Gamma
       D    Gamma
       E    Beta
       K    Beta
       D    Beta
       D    Beta
       E    Beta
       F    Beta
       L    Beta
       F    Beta
       F    Beta
       M    Beta
       F    Beta
       E    Beta
       N    Zeta
       J    Zeta
       N    Zeta
       O    Zeta
       D    Zeta
       P    Zeta
       Q    Zeta
       D    Zeta
       F    Zeta
       L    Zeta
       F    Zeta 
       F    Zeta
       D    Zeta
       D    Zeta
       L    Alpha
       L    Alpha
       R    Alpha
       E    Alpha
       F    Alpha
       D    Alpha
       D    Alpha
       N    Alpha

ここから、キャレット パッケージを使用してデータをトレーニングし、モデルを使用して、出現する確率を予測しADVますPARTNER2。最後にエラーが発生しますが、解決できないようです。

inTrain <- createDataPartition(y=df$ADV, p=0.75, list=FALSE)   # We wish 75% for the trainset 

train.set <- df[inTrain,]
test.set  <- df[-inTrain,]
nrow(train.set)/nrow(test.set) # should be around 3

model <- train(ADV ~ ., train.set, 
               method='nnet', 
               trace = FALSE)

prediction <- predict(model, newdata=test.set[-2], type="prob")

model.frame.default(Terms, newdata, na.action = na.action, xlev = object$xlevels) のエラー: 因子 PARTNER2 には新しいレベル I、J があります

誰でもこれで私を助けることができますか？