混淆矩阵显示额外的0

Question

我正在尝试计算我的模型在预测是否发生不良贷款方面的表现。但是，当我在我的混淆矩阵中添加边距时，会有一个0的顶行。我无法弄清楚如何只删除0的顶行，以使计算准确。

    threshold <- .5

    oversample_model <- glm(status ~., oversamp_training_data, family="binomial")

    predicted.oversample <- ifelse(predict(oversample_model, newdata = testing_data, type="response") > threshold, 1,0)

    actual.oversample <- testing_data$status
    conf_matrix_oversample <- table(actual.oversample,predicted.oversample)
    conf_matrix_oversample[apply(conf_matrix_oversample!=0, 1, all),]
    addmargins(conf_matrix_oversample)
p4 <- sum(diag(conf_matrix_oversample)) / sum(conf_matrix_oversample)
print(paste('Proportion correctly predicted = ', p4))

输出如下：

                     predicted.oversample
actual.oversample    0    1  Sum
                     0    0    0
             Bad   435  994 1429
             Good 3260 1806 5066
             Sum  3695 2800 6495
[1] "Proportion correctly predicted =  0.153040800615858"

有关如何摆脱第二行0的任何建议吗？