Is it possible to get high AUC scores but fail the Hosmer-Lemeshow test? This is a very simple logistic fit with just three explanatory variables. I did run the Hosmer-Lemeshow test manually and the result is good. Only the p-value reported by R is consistently low.
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