FMQ (Narrow) A: Drug X B: Placebo C: Combination Risk Difference (%) (95% CI)
Preferred Term (N=134) (N=134) (N=132) (N=268)
——————————————————————————————————————————————————————————————————————————————————————————————
Erectile Dysfunction
dcd A.1.1.1.1 13 (9.7%) 9 (6.7%) 19 (14.4%) -3.0 (-9.5 - 3.6)
dcd A.1.1.1.2 9 (6.7%) 9 (6.7%) 13 (9.8%) 0.0 (-6.0 - 6.0)
dcd B.1.1.1.1 10 (7.5%) 11 (8.2%) 14 (10.6%) 0.7 (-5.7 - 7.2)
dcd B.2.1.2.1 11 (8.2%) 11 (8.2%) 18 (13.6%) 0.0 (-6.6 - 6.6)
dcd C.2.1.2.1 7 (5.2%) 3 (2.2%) 13 (9.8%) -3.0 (-7.5 - 1.5)
dcd D.1.1.1.1 19 (14.2%) 6 (4.5%) 16 (12.1%) -9.7 (-16.6 - -2.8)
dcd D.1.1.4.2 11 (8.2%) 5 (3.7%) 14 (10.6%) -4.5 (-10.1 - 1.2)
dcd D.2.1.5.3 13 (9.7%) 9 (6.7%) 12 (9.1%) -3.0 (-9.5 - 3.6)
Gynecomastia
dcd A.1.1.1.1 6 (4.5%) 8 (6.0%) 18 (13.6%) 1.5 (-3.8 - 6.8)
dcd A.1.1.1.2 10 (7.5%) 6 (4.5%) 15 (11.4%) -3.0 (-8.6 - 2.7)
dcd B.1.1.1.1 11 (8.2%) 8 (6.0%) 11 (8.3%) -2.2 (-8.4 - 3.9)
dcd B.2.1.2.1 11 (8.2%) 7 (5.2%) 19 (14.4%) -3.0 (-9.0 - 3.0)
dcd C.2.1.2.1 5 (3.7%) 9 (6.7%) 17 (12.9%) 3.0 (-2.3 - 8.3)
dcd D.1.1.1.1 9 (6.7%) 7 (5.2%) 10 (7.6%) -1.5 (-7.2 - 4.2)
dcd D.1.1.4.2 11 (8.2%) 16 (11.9%) 12 (9.1%) 3.7 (-3.5 - 10.9)
dcd D.2.1.5.3 9 (6.7%) 12 (9.0%) 14 (10.6%) 2.2 (-4.2 - 8.7)
FDA Table 15
Patients With Adverse Events by Male-Specific FDA Medical Query (Narrow) and Preferred Term, Male Safety Population, Pooled Analyses
# Load Libraries & Data
library(cardinal)
adsl <- random.cdisc.data::cadsl
adae <- random.cdisc.data::cadae
# Pre-Processing - Ensure required variables FMQ01SC and FMQ01NAM exist in adae
set.seed(1)
adae <- dplyr::rename(adae, FMQ01SC = SMQ01SC, FMQ01NAM = SMQ01NAM)
levels(adae$FMQ01SC) <- c("BROAD", "NARROW")
adae$FMQ01SC[is.na(adae$FMQ01SC)] <- "NARROW"
adae$FMQ01NAM <- factor(adae$FMQ01NAM, levels = c(unique(adae$FMQ01NAM), "Erectile Dysfunction", "Gynecomastia"))
adae$FMQ01NAM[adae$SEX == "M"] <- as.factor(
sample(c("Erectile Dysfunction", "Gynecomastia"), sum(adae$SEX == "M"), replace = TRUE)
)
# Output Table
risk_diff <- list(arm_x = "B: Placebo", arm_y = "A: Drug X")
make_table_15(adae = adae, alt_counts_df = adsl, risk_diff = risk_diff)
make_table_15()
Required variables:
-
adae
:adae
must containUSUBJID
,SEX
, and the variables specified byarm_var
,saffl_var
,pref_var
,fmqsc_var
andfmqnam_var
. -
alt_counts_df
(if specified):USUBJID
and the variables specified byarm_var
andsaffl_var
.
Argument | Description | Default |
adae |
(data.frame ) Dataset (typically ADAE) required to build table. |
No default |
alt_counts_df |
(character ) Alternative dataset used only to calculate column counts. |
NULL |
show_colcounts |
(flag ) Whether column counts should be printed. |
TRUE |
arm_var |
(character ) Arm variable used to split table into columns. |
"ARM" |
saffl_var |
(character ) Flag variable used to indicate inclusion in safety population. |
"SAFFL" |
pref_var |
(character ) Preferred term variable to use in table. |
"AEDECOD" |
sex_scope |
(character ) Level of SEX to output in table. |
"M" |
fmq_scope |
(character ) FMQ scope value to use in table. |
"NARROW" |
fmqsc_var |
(character ) FMQ scope variable to use in table. |
"FMQ01SC" |
fmqnam_var |
(character ) FMQ reference name variable to use in table. |
"FMQ01NAM" |
lbl_overall |
(character ) If specified, an overall column will be added to the table with the given value as the column label. |
NULL |
risk_diff |
(named
|
NULL |
prune_0 |
(flag ) Whether all-zero rows should be removed from the table. |
FALSE |
na_level |
(character ) String to represent missing values. |
"<Missing>" |
annotations |
(named list of character ) List of annotations to add to the table. Valid annotation types are title , subtitles , main_footer , and prov_footer . Each name-value pair should use the annotation type as name and the desired string as value. |
NULL |
Source code for this function is available here.