r - 表函数省略底行

Question

我正在尝试为逻辑回归模型制作混淆矩阵，无论我做什么，表格函数都会忽略最下面一行。在展示我的工作方面，我可以在下面提供示例数据。我的真实数据非常庞大，被下载到我的电脑上。然而，问题是这个基于我的确切代码的模拟运行正常。不同之处可能在于这是一个非常小的模拟。我的真实数据有 20,000 多行。

set.seed(1)
a<-runif(10)
b<-runif(10)
c<-rnorm(10)
sample_outcome<-sample(c(0,1), replace=TRUE, size=10)
sample.df<-data.frame(a,b,c,sample_outcome)
s_logistic <- glm(formula = sample_outcome~., data=sample.df, family=binomial)
s_probs <- predict(s_logistic, type="response")
s_predict <-rep(0,nrow(sample.df))
s_predict[s_probs>.5]=1
table(s_predict,sample.df$sample_outcome)

s_predict 0 1
        0 1 0
        1 2 7

在我的实际数据中，底行，对应于“1,2,7”的那一行总是缺失。知道这里可能会发生什么吗？

标签： rlogistic-regression