table 50 - variables already in adae

Author: edelarua

quarto/catalog/fda-table_50/index.qmd

@@ -35,16 +35,7 @@ adae <- adae |> mutate(
   SEXGR = "Sex, n (%)",
   SEXGR1 = as.factor(SEX),
   AGEGR = "Age group, years, n(%)",
-  AGEGR1 = factor(
-    case_when(
-      AGE >= 17 & AGE < 65 ~ ">=17 to <65",
-      AGE >= 65 & AGE < 75 ~ "65-74",
-      AGE >= 75 ~ ">=75"
-    ),
-    levels = c(">=17 to <65", "65-74", ">=75")
-  ),
   RACEGR = "Race, n(%)",
-  RACEGR1 = as.factor(RACE),
   ETHNICGR = "Ethnicity, n(%)",
   ETHNICGR1 = as.factor(RACE)
 )