Update PCTPTNUM

pharmaverse · Apr 2, 2024 · 4154f0d · 4154f0d
1 parent ed660c4
commit 4154f0d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/data-raw/pc.R b/data-raw/pc.R
@@ -8,6 +8,7 @@ library(dplyr)
 library(lubridate)
 library(labelled)
 library(admiral)
+library(ggplot2)
 
 # Create pc ----
 data("ex")
@@ -104,6 +105,12 @@ PC_Urine <- PC %>%
       PCTPT == "24h Post-dose" ~ "12-24h Post-dose",
       PCTPT == "48h Post-dose" ~ "24-48h Post-dose"
     ),
+    PCTPTNUM = case_when(
+      PCTPT == "0-6h Post-dose" ~ 3,
+      PCTPT == "6-12h Post-dose" ~ 9,
+      PCTPT == "12-24h Post-dose" ~ 18,
+      PCTPT == "24-48h Post-dose" ~ 37
+    ),
     Conc = Urine
   )
 

diff --git a/data/pc.rda b/data/pc.rda