arthur/ArtStudies
1
0
Fork 0
mirror of https://github.com/ArthurDanjou/ArtStudies.git synced 2026-01-31 08:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix confusion matrix

Browse Source
This commit is contained in:
Arthur Danjou
2024-12-10 10:01:30 +01:00
parent 332ac9e1e7
commit a1e5fe2d9c
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
M1/General Linear Models/TP4/TP4.rmd
View File

@@ -84,12 +84,11 @@ model_train_pima <- glm(type ~ npreg + glu + bp + skin + bmi + ped + age, data =
summary(model_train_pima) summary(model_train_pima)
``` ```
```{r} ```{r}
pima.te$pred <- predict(model_train_pima, newdata = pima.te, type = "response") 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$pred <- as.factor(pima.te$pred)
pima.te$type <- as.factor(pima.te$type) pima.te$type <- as.factor(pima.te$type)
# Confusion matrix # Confusion matrix
confusionMatrix(data = pima.te$type, reference = pima.te$pred) confusionMatrix(data = pima.te$type, reference = pima.te$pred, positive = 'Yes')
``` ```