r previsto tipo = prob
# Predicting class
pred_class <- predict(model, test_set, type="response")
# Predicting probability of class
pred_prob <- predict(model, test_set, type="prob")
Colorful Copperhead