RastaRocket (version 1.0.2)

desc_ei_per_grade: desc_ei_per_grade

Description

A function to describe adverse events (AE) by grade.

Usage

desc_ei_per_grade(df_pat_grp, df_pat_grade, severity = TRUE, digits = 1)

Value

A gt table summarizing the AE by grade.

Arguments

df_pat_grp

A dataframe with two columns: USUBJID and RDGRPNAME (the RCT arm).

df_pat_grade

A dataframe with four columns: USUBJID, EINUM (the AE id), EIGRDM (the AE grade) and EIGRAV (the AE severity which must be "Grave" and "Non grave").

severity

A boolean to show severe adverse event line or not.

digits

Number of digits for percentages

Examples

df_pat_grp <- data.frame(USUBJID = paste0("ID_", 1:10),
                         RDGRPNAME = c(rep("A", 3), rep("B", 3), rep("C", 4)))

df_pat_grade <- data.frame(USUBJID = c("ID_1", "ID_1",
                                      "ID_2",
                                      "ID_8",
                                      "ID_9"),
                           EINUM = c(1, 2,
                                      1,
                                      1,
                                      1),
                           EIGRDM = c(1, 3,
                                     4,
                                     2,
                                     4),
                           EIGRAV = c("Grave", "Non grave",
                                      "Non grave",
                                      "Non grave",
                                      "Grave"))

desc_ei_per_grade(df_pat_grp = df_pat_grp,
                  df_pat_grade = df_pat_grade)