From f4b6a9b17f00f85134d64f1f6e6734025bf43579 Mon Sep 17 00:00:00 2001
From: Marder <fm58hufi@usr.idiv.de>
Date: Mon, 30 Sep 2024 11:25:40 +0200
Subject: [PATCH] matching
---
Scripts/logit/chr_vol_treat.R | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/Scripts/logit/chr_vol_treat.R b/Scripts/logit/chr_vol_treat.R
index 6a805fe..6b67cc1 100644
--- a/Scripts/logit/chr_vol_treat.R
+++ b/Scripts/logit/chr_vol_treat.R
@@ -1,13 +1,10 @@
library(dplyr)
library(tidyr)
library(margins)
-<<<<<<< HEAD
library(lubridate)
library(caret)
library(randomForest)
-=======
library(pROC)
->>>>>>> e410a7a5c52ecf34b454cff74f0b641cd5615679
library(xgboost)
# Test treatment effect
@@ -67,7 +64,7 @@ data$predicted.classes <- ifelse(data$probabilities >= cut_off, 1, 0)
# Model accuracy
mean(data$predicted.classes == data$Choice_Treat, na.rm = T)
-<<<<<<< HEAD
+
@@ -145,7 +142,8 @@ table(labeled_data$Choice_Treat, labeled_data$PredictedGroup)
unlabeled_predictions <- predict(model3, newdata = unlabeled_data)
unlabeled_data$PredictedGroup <- unlabeled_predictions
print(model3$bestTune)
-=======
+
+
table(data$predicted.classes ,data$Choice_Treat)
calculate_metrics <- function(confusion_matrix) {
--
GitLab