Матрица путаницы показывает дополнительные 0 - PullRequest
Новая
       70

Матрица путаницы показывает дополнительные 0

0 голосов
/ 08 мая 2018

Я пытаюсь вычислить, насколько хорошо моя модель предсказывает, будет ли плохой заем. Однако, когда я добавляю поля в свою матрицу путаницы, появляется верхняя строка с нулями. Я не могу понять, как удалить только верхнюю строку из 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 во втором ряду?

...