Assign value for AEACN

Merck · Jan 31, 2025 · 059b034 · 059b034
1 parent aab6a5e
commit 059b034
Showing 1 changed file with 13 additions and 10 deletions.
diff --git a/R/meta_ae_example.R b/R/meta_ae_example.R
@@ -70,18 +70,21 @@ meta_ae_example <- function() {
   }
 
   # AE action
-  adae$AEACN <- gsub("", "DOSE NOT CHANGED", adae$AEACN)
+  adae$AEACN <- sample(
+    x = c("DOSE NOT CHANGED", "DRUG INTERRUPTED", "DRUG WITHDRAWN", "NOT APPLICABLE", "UNKNOWN"),
+    size = length(adae$USUBJID),
+    prob = c(0.7, 0.1,0.05,0.1,0.05), replace = TRUE
+  )
 
   for (i in seq_along(adae$AEACN)) {
-    adae$action_taken[i] <- switch(adae$AEACN[i],
-      "DOSE NOT CHANGED" = "None",
-      "DOSE REDUCED" = "Reduced",
-      "DRUG INTERRUPTED" = "Interrupted",
-      "DOSE INCREASED" = "Increased",
-      "NOT APPLICABLE" = "N/A",
-      "UNKNOWN" = "Unknown",
-      "''" = "None",
-      tools::toTitleCase(tolower(adae$AEACN[i]))
+  adae$action_taken[i] <- switch(adae$AEACN[i],
+                                  "DOSE NOT CHANGED" = "None",
+                                  "DRUG INTERRUPTED" = "Interrupted",
+                                  "DRUG WITHDRAWN" = "Discontinued",
+                                  "NOT APPLICABLE" = "N/A",
+                                  "UNKNOWN" = "Unknown",
+                                  "''" = "None",
+                                  tools::toTitleCase(tolower(adae$AEACN[i]))
     )
   }