110102

galenos-project · Jan 11, 2024 · 1064e97 · 1064e97
1 parent 4ef0672
commit 1064e97
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/wrangling/data_wrangle_script.R b/wrangling/data_wrangle_script.R
@@ -1052,6 +1052,14 @@ df <- df %>%
 df <- df %>% 
   mutate(drugname2_I = str_replace_all(drugname1_I, "SEP(?!-363856)", "SEP-363856"))
 
+df <- df %>% 
+  mutate(CategoryDiseaseInduction = case_when(
+    CategoryDiseaseInduction == "Genetic (e.g. DISC1 KO, DAT KO, D2R overexpression)" ~ "Genetic", 
+    CategoryDiseaseInduction == "Pharmacological (e.g. psychostimulants, NMDA antagonists)" ~ "Pharmacological",
+    TRUE ~ CategoryDiseaseInduction  # Keep other values unchanged
+  ))
+
+
 # Replace unit of measurements for drugs with abbreviations 
 df <- df %>% 
   mutate(`Measurement unit of treatment dose:[1]` = str_replace_all(`Measurement unit of treatment dose:[1]`, "miligrams \\(mg\\) per kg", "mg/kg"),