confusionMatrix.default出错：数据的级别不能超过引用

Question

当我在插入符号中运行confusionMatrix（请参阅下面的代码）时，我遇到了一个错误 - confusionMatrix.default：数据的级别不能超过引用。我搜索了类似的问题，并根据在线建议进行了一些测试。但是，我仍然无法解决问题。我的目标是使用一些功能集来预测外向性。任何人都可以帮我解决这个问题。非常感谢你的时间。

Predictors＆lt; - Personality [PredictorNames]

SEXT＆lt; - Personality [2]

EXT＆lt; - cbind（SEXT，Predictors）

Control＆lt; - trainControl（method =＆＃34; repeatedcv＆＃34;，number = 10，重复= 10）

ExtPart＆lt; - createDataPartition（EXT $ sEXT，p = 0.70，list = FALSE）

Ext_Train＆lt; - EXT [ExtPart，]

Ext_Test＆lt; - EXT [-ExtPart，]

EXT.lm＆lt; - train（sEXT~。，data = Ext_Train，method =＆＃34; lm＆＃34;，trControl = Control）

预测＆lt; - 预测（EXT.lm，Ext_Test，na.action = na.pass）

confusionMatrix（预测，Ext_Test $ sEXT）

我做过的测试：

水平（预测）;水平（Ext_Test $六重峰）

NULL NULL

长度（预测）;长度（Ext_Test $六重峰）

[1] 73 [1] 73

STR（预测）; STR（Ext_Test $六重峰）

命名数[1:73] 3.54 2.82 2.54 3.19 2.14 ......   - attr（*，＆＃34;姓名＆＃34;）= chr [1:73]＆＃34; 3＆＃34; ＆＃34; 5＆＃34; ＆＃34; 9＆＃34; ＆＃34; 11＆＃34; ...

num [1:73] 4.3 3.7 3.65 3.35 2.6 3.35 4.3 2.3 2.5 4.33 ......

摘要（预测）;摘要（Ext_Test $六重峰）

最小。第一曲。中位数第3曲。最大。  -5.377 2.701 3.172 3.005 3.861 5.405

最小。第一曲。中位数第3曲。最大。   1.750 2.710 3.300 3.343 3.800 4.950

再次感谢您的反馈。

PS：我终于解决了这个问题。这是我的解决方案。

预测＆lt; - 预测（EXT.lm，Ext_Test）

Ext_u＆lt; - union（predictions，Ext_Test $ sEXT）

Ext_table＆lt; - table（factor（predictions，Ext_u），factor（Ext_Test $ sEXT，Ext_u））

暗淡（Ext_table）

混淆矩阵（Ext_table）