R：Logistic模型精度为0

Question

我正在一个非常小的数据集上运行逻辑回归模型（n = 78）。我将这些数据分区为0.7，当我测试我所选模型的预测能力时，准确度为0.我用来确定准确度的代码如下：

fitted.results <- predict(s0, newdata=test, type = 'response')
fitted.results <- ifelse(fitted.results > 0.5,1,0)
misClasificError <- mean(fitted.results !=test$Pluck)
print(paste('Accuracy', 1-misClasificError))

我不确定这个结果是否是我的小样本量的假象。 pseudoR2值是合适的（〜.50），AUC非常高（0.96）。任何建议将不胜感激！