使用Zelig软件包进行交叉验证

Question

我在R中使用Zelig包，我想运行交叉验证。

library(Zelig)
data(med)
z.out1 <- zelig(conflict ~ major + contig + power + maxdem + mindem + years, data = mid, model = "relogit", tau = 1042/303772)

我希望运行10倍的交叉变换，以获得混淆矩阵并计算更多测量来验证我的模型。我该怎么办？

Answer 1

最后我想出了如何使用Zelig来做到这一点。 要构建模型并使用它来预测新数据，我需要执行以下操作：

m1<-relogit(conflict~.,trainData)
y_pred = predict(m1,testData, type="response")
y_true = testData[1]
accuracy(t(y_true),t(y_pred))