Compose table 4 — compose

Create a table with the distribution of strange cases

Usage

compose_tbl4(jecfa)

Arguments

jecfa: a data frame with the JECFA data

Value

a gtsummary table

Examples

jecfa_sample <- c(9:11) |>
  purrr::map(\(id) compose_jecfa_list(id) |> get_result()) |>
  create_df() |>
  process_df() |>
  add_metadata()

compose_tbl4(jecfa_sample)


  Table 4. Distribution of strange cases
  Characteristic
      N = 2¹
    
Report_sourcelink

    http://apps.who.int/iris/bitstream/10665/40627/1/WHO_TRS_309.pdf
1 (50%)
    http://apps.who.int/iris/bitstream/10665/41962/1/WHO_TRS_868.pdf
1 (50%)
Report

    NMRS 38/TRS 309-JECFA 8/23
1 (50%)
    TRS 868-JECFA 46/21
1 (50%)
¹ n (%)

Characteristic	N = 2¹
Report_sourcelink
http://apps.who.int/iris/bitstream/10665/40627/1/WHO_TRS_309.pdf	1 (50%)
http://apps.who.int/iris/bitstream/10665/41962/1/WHO_TRS_868.pdf	1 (50%)
Report
NMRS 38/TRS 309-JECFA 8/23	1 (50%)
TRS 868-JECFA 46/21	1 (50%)
¹ n (%)