data(cars)
logreg <- glm(formula=vs~hp+wt, family=binomial(link = "logit"), mtcars)
pred <- ifelse(logreg$fitted.values<0.5, 0, 1)
Precision(y_true=mtcars$vs, y_pred=pred, positive="0")
Precision(y_true=mtcars$vs, y_pred=pred, positive="1")Run the code above in your browser using DataLab