desc_ei_per_grade

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

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

Arguments

df_pat_grp

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

df_pat_grade

A dataframe with three 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

Value

A gt table summarizing the AE by grade.

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)


  
Grade
      

        
Total
      
      

        
A
      
      

        
B
      
      

        
C
      
    
AE 
 N (%)
      
Patient 
 N (%)
      
AE 
 N (%)
      
Patient 
 N (%)
      
AE 
 N (%)
      
Patient 
 N (%)
      
AE 
 N (%)
      
Patient 
 N (%)
    
Any grade
5 (100.0)
4 (40.0)
3 (100.0)
2 (66.7)
0 (  0.0)
0 ( 0.0)
2 (100.0)
2 (50.0)
1
1 ( 20.0)
1 (10.0)
1 ( 33.3)
1 (33.3)







2
1 ( 20.0)
1 (10.0)








1 ( 50.0)
1 (25.0)
3
1 ( 20.0)
1 (10.0)
1 ( 33.3)
1 (33.3)







4
2 ( 40.0)
2 (20.0)
1 ( 33.3)
1 (33.3)




1 ( 50.0)
1 (25.0)
SAE
2 ( 40.0)
2 (20.0)
1 ( 33.3)
1 (33.3)




1 ( 50.0)
1 (25.0)