From a1e5fe2d9c8fdd0bf05c04b75e05a8a75ab81e1e Mon Sep 17 00:00:00 2001 From: Arthur DANJOU Date: Tue, 10 Dec 2024 10:01:30 +0100 Subject: [PATCH] fix confusion matrix --- M1/General Linear Models/TP4/TP4.rmd | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/M1/General Linear Models/TP4/TP4.rmd b/M1/General Linear Models/TP4/TP4.rmd index 9d4e822..a14ff1c 100644 --- a/M1/General Linear Models/TP4/TP4.rmd +++ b/M1/General Linear Models/TP4/TP4.rmd @@ -84,12 +84,11 @@ model_train_pima <- glm(type ~ npreg + glu + bp + skin + bmi + ped + age, data = summary(model_train_pima) ``` ```{r} - pima.te$pred <- predict(model_train_pima, newdata = pima.te, type = "response") -pima.te$pred <- ifelse(pima.te$pred > 0.5, "Yes", "No") +pima.te$pred <- ifelse(pima.te$pred > 0.55, "Yes", "No") pima.te$pred <- as.factor(pima.te$pred) pima.te$type <- as.factor(pima.te$type) # Confusion matrix -confusionMatrix(data = pima.te$type, reference = pima.te$pred) +confusionMatrix(data = pima.te$type, reference = pima.te$pred, positive = 'Yes') ```