我想你要求的是这样的东西：
model3<-train(Species~., data=iris, method=’knn’, trControl=trainControl(method=’none’), tuneGrid=data.frame(k=20))
testPred <- predict(model3, iris)
postResample(testPred, iris$Species)Accuracy Kappa
0.98 0.97</code>
。
我知道我可以获得表现
测试
</跨度>
使用模型$ results为每个折叠设置，但这不是我想要的。我想展示一下
训练
</跨度>
错误是过于乐观的，但我做不到。 我不知道如何提取
训练
</跨度>
错误（即在…上获得的错误）
训练
</跨度>
使用R中的插入符包。例如，我有以下模型：
数据（光圈）;
库（脱字符号）;
模特