Hello,
I have run logistic regression in R and then calculated the predictions using prob like below:
data$prob <- mylogit$fitted.values
data$predictions <- NA
data[data$prob >= 0.70,]$predictions <- 1
data[data$prob < 0.70,]$predictions <- 0
table(data$Churned,data$predictions)
auc(sensitivity(data$predictions,data$Churned))
However none of the cases where there was a churn(272) cases have been predicted correctly:
As can be seen in the above image,none of the prob are below 70% and after I checked the distribution using summary,i tried to better the model using:
How do I improve the model??
This is the current status of predictions:
> auc(sensitivity(data$predictions,data$Churned))
[1] 0.5003309
>
> auc(specificity(data$predictions,data$Churned))
[1] 0.001836179
>
> auc(accuracy(data$predictions,data$Churned))
[1] 0.8983969
>
> auc(roc(data$predictions,data$Churned))
[1] 0.5014233