Можно ли получить высокие оценки AUC, но не пройти тест Хосмера-Лемешоу?Это очень простая логистическая подгонка с тремя пояснительными переменными.Я провел тест Hosmer-Lemeshow вручную, и результат хороший.Только р-значение, сообщаемое R, постоянно низкое.
prd <- prediction(train$pred,train$Purchased)
roc.perf <- performance(prd, measure = "tpr", x.measure = "fpr")
plot(roc.perf,colorize = TRUE)
hist(pred, breaks = 50)
auc.perf = performance(prd, measure = "auc")
auc.perf@y.values[[1]]
# AUC 0.923
#SomersD test
somersD(test$Purchased,test$pred)
# 0.8854
#Hosmer-Lemeshow test
hoslem.test(test$Purchased,test$pred)
#p val = 0.0048